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Abstract 

'I'his  research  investigated  the  nu'asureinent  and  ini|)rovonient  of  two  perfor¬ 
mance  parameters,  expected  flow  and  reliability,  for  stocha-stic  communication  net¬ 
works.  There  were  three  objectives  of  this  re.search.  The  first  was  to  measure  the 
reliability  of  large  stochastic  networks.  This  was  accomplished  through  an  investiga¬ 
tion  into  the  current  methodologies  in  the  literature,  with  a  subsequent  selection  and 
application  of  a  factoring  program  developed  by  Page  and  Perry  (IS).  The  second 
objective  was  to  develop  a  reliability  improvement  model  gi  m  that  a  mathematical 
reliability  expression  did  not  exist.  This  was  accomplished  modeling  a  hueristic  by 
•lain  and  Gopal  (15).  into  a  iinear  improvement  model.  Finally,  the  third  objective 
was  to  examine  the  trade-off  between  maximizing  expected  flow  and  reliability.  This 
was  accomplished  through  generating  bounds  for  the  efficient  frontier  in  a  modified 
multicriteria  optimization  approach.  Using  the  methodologies  formulated  in  this 
research,  the  performance  parameters  of  both  expected  flow  and  reliability  can  be 
measured  and  subsequent  improvements  made  providing  insight  into  the  operational 
capabalities  of  stochastic  communication  networks. 


As  with  the  ex|)ccl<‘<l  niaxitnuin  flow  ralnilalion,  Viin  b  rapiicity  improvement 
mod**!  will  be  used,  which  was  exainiiied  in  the  literatur*-  review. 

I’orniulalniy  tin  Mulliciilcna  Model 

Cuven  an  objective  function  for  each  criteria,  expected  flow  and  reliability, 
a  multicrileria  optimization  model  was  needed  to  generate  the  trade-off  region  or 
effici(?nt  frontier  for  the  two  criteria.  Lacking  a  criterion  function  for  network  relia¬ 
bility.  two  modified  approaches  to  examine  the  trade-off  reqion  were  investigated  in 
Chapter  \'. 

3.5  Selecting  .Software 

Given  the  performance  measure  and  intprovemeni  models,  .software  was  re¬ 
quired  to  implement  the  models.  Previous  work  by  Yim  and  Caught  used  several 
different  off-the-shelf  commercial  solver  packages  to  include  GINO  and  LP/MIP-83. 
The  General  .Algebraic  Modeling  System,  G.4M5,  was  selected  both  for  its  ability 
to  solve  linear  and  nonlinear  models  on  the  personal  computer  and  its  ease  in  con¬ 
verting  from  one  model  to  another.  In  addition  to  the  G.A.MS  solver,  Yim's  Formula 
program  was  us«‘d  for  network  path  generation  and  which  required  a  Prolog  compiler. 
Finally,  integration  procedures  and  input  file  generation  pri^graius  were  written  in 
Pa.scal. 

3.6  .-\nah/:ing  Comm unicat ion  :\‘(tu'orks 

The  above  met  hodologies  were  applied  to  one  small  example  network  an<I  lhre<* 
large  realistic  networks.  The  example  network  wa.s  us«*d  to  <lemonstrat<'  the  appli¬ 
cation  of  the  models  to  stochastic  networks  while  the  large  netw<irks  wt*n‘  aiiahzed 
with  r<'spe«t  to  their  initial  perforntance  and  siib.sequenl  improve*!  performance.  Fi¬ 
nally.  the  trade-off  region  was  e.xamined  for  the  networks.  I'he  description  of  the 
thr<s'  large  networks  along  with  their  respect iv<* analysis  is  pr«  sent»-d  in  ('haj>ler  \  II. 
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Abstract 

This  research  investigated  the  measurement  and  improvement  of  two  perfor¬ 
mance  parameters,  expected  flow  and  reliability,  for  stochastic  communication  net¬ 
works.  There  were  three  objectives  of  this  research.  The  first  was  to  measure  the 
reliability  of  large  stochastic  networks.  This  was  accomplished  through  an  investiga¬ 
tion  into  the  current  methodologies  in  the  literature,  with  a  subsequent  selection  and 
application  of  a  factoring  program  developed  by  Page  and  Perry  (18).  The  second 
objective  was  to  develop  a  reliability  improvement  model  given  that  a  mathematical 
reliability  expression  did  not  exist.  This  was  accomplished  modeling  a  hueristic  by 
Jain  and  Gopal  (15),  into  a  linear  improvement  model.  Finally,  the  third  objective 
was  to  examine  the  trade-off  between  maximizing  expected  flow  and  reliability.  This 
was  accomplished  through  generating  bounds  for  the  efficient  frontier  in  a  modified 
multicriteria  optimization  approach.;  Using  the  methodologies  formulated  in  this 
research,  the  performance  parameters  of  both  expected  flow  and  reliability  can  be 
measured  and  subsequent  improvements  made  providing  insight  into  the  operational 
capabalities  of  stochastic  communication  networks. 


Improving  Stochastic  Communication  Network  Performance  : 
Reliability  vs.  Throughput 


1.  Introduction 

The  Department  of  Defense  (DoD)  is  concerned  with  the  survivability  of  com¬ 
munications  networks  and  the  flow  of  information  through  the  network  during  crisis 
situations.  (12:2)  The  improvement  of  the  expected  maximum  flow  or  throughput, 
and  reliability  of  stochastic  communications  networks  can  be  accomplished  through 
increasing  channel  capacities  or  survivabilities  within  the  network.  Calculating  the 
maximum  expected  flow  for  a  large  stochastic  network  is  computationally  infeasible, 
but  very  efficient  mathematical  programs  have  been  recently  developed  to  calculate 
the  lower  bound  of  the  expected  maximum  flow,  which  has  been  demonstrated  to  be 
an  accurate  estimator.  In  addition,  recent  algorithms  have  been  developed  to  calcu¬ 
late  the  reliability  of  large  stochastic  networks.  Based  on  the  above  programs,  the 
network  performance  parameters  of  expected  flow  and  reliabilit\‘  can  be  measured 
and  inv('slment  strategies  modeled  to  improve  stochastic  network  performance. 

1.1  Background 

A  stochastic  communications  network  can  be  represented  by  a  graph  consisting 
of  nodes  representing  transmitters,  receivers,  or  relay  stations,  and  arcs  repre.senting 
communication  channels  (land  lines,  microwave  or  satellite  links)  which  connect  the 
individual  nodes.  I’nder  adverse  conditions,  some  arcs  or  nodes  may  fail  and  thus 
each  has  an  associated  probability  of  survival.  This  is  the  basis  for  the  stochastic 
communication  network  in  contrast  to  a  deterministic  network  where  there  are  no 
prol)abilitie.s  of  failure. 

To  calculate  th('  exact  maximum  flow  through  the  stochastic  network  requires 
^numerating  all  possible  state's  of  the  network.  Assuming  a  network  with  n  com¬ 
ponents  (arcs  or  nodes),  each  being  either  up  (operational)  or  down  (failed),  the 
total  number  of  states  is  2".  Yim  gives  an  example  of  a  network  consisting  of  55 


arcs  which,  given  a  typical  personal  computer,  would  require  114.25  years  to  enu¬ 
merate  all  possible  states.  (23:2)  While  the  exact  value  for  expected  maximum  flow 
is  computationally  infeasible  to  solve  for,  Yim  developed  a  mathematical  program¬ 
ming  model  which  accurately  estimates  the  expected  throughput  of  the  network  by 
calculating  a  lower  bound  value.  (23:33) 

Expanding  on  his  expected  throughput  model,  Yim  developed  several  invest¬ 
ment  models  for  improving  expected  throughput  by  increasing  individual  arc  ca¬ 
pacities  within  the  network.  (23:38,40)  Subsequently,  Gaught  developed  additional 
nonlinear  investment  models  for  improving  expected  throughput  by  increasing  the 
survivabilities  of  individual  arcs  within  the  network. 

The  performance  parameter  of  expected  throughput  measures  how  much  infor¬ 
mation  a  network  can  flow  under  adverse  conditions  given  the  probability  of  paths 
left  to  connect  the  source  and  sink.  The  expected  flow  is  thus  a  weighted  average 
of  the  flow  times  the  probability  of  each  state  of  the  network.  For  some  operations, 
however,  the  amount  of  flow  is  less  important  than  the  probability  that  the  source 
and  sink  are  connected.  This  cannot  be  derived  from  the  expected  flow  value  but 
must  be  calculated  through  the  performance  parameter  of  source  to  sink  reliability. 

1.2  R(..<<carch  Problem 

It  i.s  the  purpose  of  this  investigation  to  develop  inclhodologies  to  measure 
and  impiove  the  expected  throughput  and  reliability  of  a  stochastic  communication 
network  under  budgetary  limitations.  The  methodologies  should  be  responsive  to 
the  decision  maker’s  inputs,  and  computional  times  required  should  be  short  enough 
to  facilitate  what-if  scenarios  in  an  interactive  mode. 

1.2  .2vb-objectivc.s 

There  are  three  sub-objectives  of  this  re.search. 

1.  The  first  sub-objective  is  to  investigate  methodologies  to  measure  network 
relial>ility  for  large  stochastic  networks. 

2.  Th('  second  sub-objective  is  to  develop  a  model  to  improve  the  network  relia- 
bility  of  large  stochastic  networks. 
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3.  The  third  sub-objective  is  to  examine  thv.  trade-off  between  maximizing  the 
two  network  performance  parameters,  expected  flow  and  reliability,  given  a 
limited  budget. 

1.4  Assumptions 

The  following  assumptions  were  made  consistent  with  those  used  by  Yim  (23:3) 
and  Gaught  (12:3)  : 

1.  Component  failures  are  independent. 

2.  Components  (arcs  or  nodes)  are  either  up  (operational)  or  down  (failed). 

3.  The  flow  of  information  through  an  arc  is  restricted  to  one  direction  only. 

4.  Rerouting  of  the  flow  is  not  allowed  (for  the  lower  bound  formulation). 

5.  Only  a  single  commodity  flows  through  the  network. 

1.5  Methodology 

The  first  sub-objective  will  be  met  by  investigating  the  current  methodologies 
used  to  measure  or  bound  network  reliability  and  then  .select  the  most  appropriate 
technique  for  this  research.  If  possible,  linear  models  will  be  selected  over  nonlinear 
models  to  avoid  the  problems  of  local  optima  and  increased  computational  complex¬ 
ity  a.ssociated  with  nonlinear  models..  In  addition,  the  preferred  methodology  will 
operate  within  the  memory  and  speed  limilation.s  of  an  IBM  compatible  personal 
computer. 

The  second  sub-objective  will  be  met  by  developing  a  model  to  improve  the 
reliability  of  stochastic  networks.  It  should  be  compatible  with  the  selected  method¬ 
ology  used  above  to  rnen.sure  network  reliability.  In  addition,  a  mathematical  .solver 
package  needs  to  be  selected  to  implement  the  developed  reliability  improvement 
model.. 

The  third  sub-objective  will  be  met  by  developing  a  methodology  using  mult  i- 
criteria  optimization  (M(’O)  to  analyze  the  trade-off  between  the  two  criterion  ob¬ 
jectives  of  maximizing  expected  flow  and  reliability,  riiis  approach  should  produce 
a  trade-off  region  from  which  an  optimum  solution  can  be  obtained  by  applying  the 
decision  makers  preference  function  pertaining  to  the  two  criteria. 


II.  Literature  Review 


This  chapter  reA^ews  the  literature  applicable  to  single-commodity  flows  through 
a  stochastic  communications  network  ,  network  reliability,  and  multi-criteria  decision 
analysis.  The  following  sections  will  discuss  network  representation,  expected  max¬ 
imum  flow,  capacity  improvements,  survivability  improvements,  network  reliability 
measuies,  and  multi-criteria  decision  analysis  methods. 

2.1  Network  Representation 

A  stochastic  communication  network  is  a  collection  of  nodes  interconnected 
fiv  directed  arcs  or  paths.  The  nodes  may  represent  ground  stations,  rej^eaters,  or 
satellites  while  the  arcs  represent  communication  links  between  the  nodes.  Each 
arc  and  node  has  an  associated  capacity  and  survivability  where  the  capacity  is  the 
maximum  flow  the  arc  can  carry  while  the  sundvability  is  the  probability  that  the  arc 
will  be  up  or  capable  of  carrying  flow.  In  a  communications  network  ,  flow  represents 
the  amount  of  information  transmitted  in  in  its  of  bits  per  second  (hips). 

In  addition  to  a  graphical  illustration,  networks  can  be  represented  in  matrix 
form  using  either  a  node-arc  incidence  matrix  or  an  aic-path  incidence  matrix.  In 
t  he  node-arc  form,  the  mat  rix  rows  correspond  to  arcs  while  the  columns  correspond 
to  nodes.  The  matrix  entries,  t,A-,  are  one  oi  the  following;  a  1.  which  implies  that 
arc  i  ends  at  node  A’;  a  -1,  indicating  i  starts  at  k;  or  a  0.  meaning  no  connection 
exists  (12:6).  The  arc-path  form  again  uses  rows  to  represent  arcs,  but  the  columns 
correspond  to  paths  within  the  network.  The  matrix  enirie.?.  (i,j.  are  either  a  1  winch 
im|)lies  arc  i  is  on  path  j.  o*'  0  meaning  arc  i  is  not  on  path  j  (23:7). 

2.2  E.vpecl(.(l  .Ma.rimum  Flow 

To  calculate  the  exact  value  of  the  exp'.’Cted  maximum  flow  rccjuires  complete 
enumeration  of  all  possil)h'  network  states  of  which  there  are  a  total  of  2".  'I'liis 
prol)lem  is  classified  as  ,\’P-hard  meaning  that  there  currently  exists  no  algorithm 
that  c.TU  calculate  the  expected  maximum  flow  in  polynomial  time  or  in  other  words, 
that  the  computations  ref|uired  grow  exponentially  with  the  number  of  components 
within  the  stoch.:stic  network. 
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In  contrast  to  the  exact  value  of  the  expected  maximum  flow,  the  lower  bound, 
sometimes  referred  to  as  the  maximum  expected  flow,  can  be  efficiently  calculated. 
Yim  (23),  assuming  independent  arcs  and  no  rerouting,  developed  a  formulation  to 
calculate  the  maximum  expected  flow  (lower  bound).  This  formulation  uses  an  arc- 
path  incidence  matrix  representation  a  r  .  -  .iiniizes  the  sum  of  the  product  of  path 
reliabilities  and  flows.  A  description  'v  '  ;-i  ?.  (23)  formulation  follows. 

2.2.1  Lower  Boxuul  Formulatio.}  t'he  reliability  Rj  of  path  Aj  within  the 
network  can  be  computed  by 


R. 


1/  ^.AjPt 


Now  let  fj  be  the  flow  on  path  j.  The  sum  of  the  expected  flows  on  all  ti  e 
paths  from  source  to  sink  is  given  by 


Letting  a,j  equal  1  if  arc  i  lies  on  path  j,  and  0  otherwise,  the  lower  bound 
formulation  is  as  follows: 


Max  T.U 
s.t 

(i-ijJj  »«■  lor  /  =  1,  2 . »? 

.fj  >  0 

Yim  uses  the  notation  u,  to  reju’esenl  the  capacity  of  arc  /  (23:16-18). 

To  facilitate  the  maxiinuiu  expected  flow  calculation,  'i’im  (23)  de\eloped  a 
coni|)uter  program,  FonnuJa,  using  the  artificial  intelligence  language  PHOLOCl, 
to  generate  the  network  flow  paths.  An  input  file  wa.s  then  generated  and  input 
into  a  mathematical  programming  package  for  solution,  liis  results  were  validated 
against  exact  solutions  generated  by  Bailey  who  u.sed  simulation  and  respon.se  surface 
analysis  on  the  same  experimental  networks  (24:18-20).  ^’im  slates  "  liven  though 
the  lower  bound  estimate  ignores  re-ro\iting,  the  states  considered  are  prominent 
enough  to  adequately  represent  the  |•Nl)ected  throughput  apparent l\  much  more 
accurate  lhati  the  a.ssump(ion  of  no  link  failure  in  the  upper  bound  (no  failun's) 
formulation."  (24:18) 
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2.3  Capacity  Improvements 

To  improve  the  expected  flow  through  a  stochastic  netv'ork,  either  the  arc 
capacities  or  survivabilities  must  be  increased.  In  this  section  ,  Yim’s  (23)  investment 
strategy  model  for  increasing  throughput  by  increasing  arc  capre  ity  will  be  reviewed 
while  the  next  section  will  examine  Gaught’s  (12)  investment  suatcgy  model  using 
increased  arc  survivabilities  to  increase  network  throughput. 

Yim  developed  a  linear  programming  model  which  maximizes  tlm  lower  bound 
of  e  ;pected  maximum  flow  given  a  fixed  budget  for  increasing  arc  capacities.  The 
mo'.e!  assumes  no  physical  upper  limit  for  arc  capacity  imi  roven'.ents  and  equal 
costs  for  increasing  arc  capacities  by  one  unit.  The  solut  n  obtained  from  the 
model  identifies  which  arcs  and  by  how  much  e.ach  should  be  increased. 

The  model  is  similar  to  that  of  the  lower  bound  formulation,  but  with  the 
following  modifications.  .An  increased  arc  capacity  term,  c/,,  is  included  in  the  flow 
capacity  constraint,  and  a  budget  constiaint  is  introduced,  where  o  is  the  cost  of 
increasing  arc  i  by  one  unit  and  ^  is  the  total  budget  available.  The  model  is  as 
follows; 


Max  ZU,  Rjfi  where  R,  .=  0,  P, 

s.i 

L'j=i  ^  +  (It 

Er=! 

Rj.n,,di,  1^  >  0  and  a,j  =  0, 1 

2.  ;'  Survivability  hnprovenn  nts 

Caught  (12)  developed  an  investment  strategy  model  to  increase  the  expected 
maximum  flow  through  the  neuvork  by  increasing  the  survivabilities  of  lh«’  arcs.  He 
introduced  tliree  additional  assumptions  to  lho.se  made  in  the  lower  bound  model; 
I)  all  arc  survivabilities  had  the  potential  to  be  increased  to  one.  2)  arc  survivabil¬ 
ities  will  be  increa.sed  in  increments  of  one  tenths,  and  3)  the  costs  to  increa.se  arc 
survivabilities  were  equal  and  linear. 

The  objective  function  maximizes  the  sum  of  the  expected  flows  over  all  paths 
from  source  to  sink  aiul  is 
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In  Gaught’s  model,  however,  the  path  reliability  Rj  is  not  a  constant  but  a 
product  of  the  arc  survivabilities,  which  are  dependent  on  the  increased  survivability 
factor  A’,.  Thus  the  path  reliabilities  are  nonlinear  and  are 

R,  UiiPi  +  .1  •  A.) 

The  constraints  consist  of  a  maximum  arc  survivability  constraint,  a  flow  ca¬ 
pacity  constraint,  and  a  budget  constraint.  The  first  constraint  ensures  the  arc 
survivabilities  (original  P,  plus  increase  .1  A,)  are  less  than  or  equal  to  one.  The 
second  constraint  ensures  the  arc  flow  is  less  than  or  equal  to  the  arc’s  capacity 
Finally,  the  third  constraint  limits  the  sum  of  the  costs  to  increase  arc  survivabilities, 
a  times  A,,  to  less  than  or  equal  to  M  e-  total  budget  available,  3.- 

Gaught’s  (12)  nonlinear  i  '.odei  is  as  follows; 

Max  EUi  PjL  "-here  Rj 
s.t. 

P, -b.l  .Y,  <1  ?  =1.2,.. 

Ej=i  (i.jfj  < 

e:=,  o,..y,  <  0 

-^^i,  Pf  3  >  0  and  a.,j 

2.5  Reliahilily 

Reliability  is  a  useful  mea.sure  to  analyze  the  performance  of  networks.  The 
traditional  approach  used  in  evaluating  network  reliability  co)isiders  .some  mea.sureof 
network  connectivity,  usuallv  source  to  sink  or  inteieonnedivity  between  k  specified 
nodes.,  A  second  approach  considers  the  ability  of  t  he  network  to  t  ransmit  a  re(|uired 
flow  from  source  to  sink.  .Aggarwal  (2:184-180;  !nt.cgrat''s  network  capacity  with 
reliability  to  define  a  network  reliability  performance  index  as  the  probability  of 
succc.ssfully  ir.'insmitting  a  recpiired  flow  from  source  to  sink. 

Aggarwal’s  approach  (2:181-186)  uses  a  normalized  weighting  .scheme  coupled 
with  tin*  traditioii.d  .s  /  reliability  methodology.  I  he  succe.ss  states  of  the  network 


=  n,(c,  +  .1  ■  ,v,) 

.  .n 


-U,l 
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(considering  path  availability  only)  are  identified  and  the  associated  state  proba¬ 
bilities  are  calculated.  Aggarwal  then  multiplies  the  state  probabilities  by  their 
normalized  weights  based  on  the  states  maximum  flow.  The  normalized  weight  is 
defined  as  ratio  of  the  state’s  maximum  flow  to  the  original  network’s  maximum  flow. 
The  weighted  state  probabilities  are  then  summed  to  form  the  performance  index. 
Aggarwal  uses  the  following  notation  (2:184): 


s,  t 

source,  terminal  node 

Pti 

reliability,  unreliability  of  branch  x 

r 

set  of  all  states 

S,F 

set  of  all  success,  failure  states 

s. 

a  member  of  set  S 

Ps. 

probability  of  .system  being  in  state  S, 

c^ 

capacity  of  the  subnetwork  in  state  S'; 

tu, 

normalized  weight  for  state  5, 

Cinax 

capacity  of  the  network  with  all  branches  up 

P$t 

6  -  t  reliability 

PI 

performance  index 

For  a  network  where  the  arcs  iiave  only  two  state.s,  up  or  down,  and  the  nodes 
are  perfect,  the  set  of  all  .states  7’,  consist  of  2"  different  stales  where  n  is  the  number 
of  arcs.  Fron\  this  total  sot,  a  subset  5.  needs  to  be  determined  corresponding  to 
those  system  states  that  have  at  least  one  complete  path  from  .s  to  /. 

For  each  state  S,  {S,  E  •'i').  the  follow’ing  aie  defined: 

n,  arc  i  is  up 

.ij  -  arc  i  is  down 

I'he  probability  of  state  S;  is: 

=  n,eo.  Pi  n.e;v.  '!> 


I'he  traditional 


I  reliabilitv  is: 


Aggarwal  defines  the  normalized  weight  w,-  cls: 


Then  the  weighted  reliabilitj^  or  performance  index,  PI  is: 

PI  =  ZiS,^S)^,Ps, 

AggarwaTs  performance  index  requires  the  enumeration  of  all  network  success 
states.  Due  to  the  binary  nature  of  the  arc  states,  up  or  down,  an  efficient  algorithm 
based  on  boolean  algebra  variables  (literals)  htis  been  developed  by  Brown  to  deter¬ 
mine  those  success  states  of  the  network  out  of  the  set  of  total  states.  (8:121-124) 

2.5.1  .Solved  Network.  The  network  in  Figure  1  was  used  for  an  example 
application  of  Aggarwal’s  reliability  performance  index  using  Brown’s  algorithm  to 
generate  the  network  success  states. 


The  example  network  consist  of  seven  arcs  and  three  s  —  i  paths,  A-B-C,  A- 
D-G,  and  E-F-G.  Using  Brown’s  algorithm  (8:121-124),  thirty-nine  network  success 
states  were  determined  from  a  possible  128  states  and  are  listed  in  Table  1. 

The  probability  of  each  success  state  was  calculated  and  the  s  -  t  or  connect¬ 
edness  reliability  was  obtained  by  summing  the  success  state  probabilities.  For  the 
example  network,  the  result  was  0.8282.  Another  reliability  measure  would  be  a 
maximum  flow  reliability  index  R/c,  where  only  those  success  states  that  have  a  flow 
capacity  equal  to  the  maximum  are  considered.  For  the  sample  network,  only  one 
state,  where  all  arr.^  are  operating,  can  provide  the  maximum  flow  of  nine  units.  The 
maximum  flow  reliability  index  was  calculated  to  be  0.2097. 

Given  the  two  above  reliability  indicators,  there  still  existed  a  large  gap  of 
network  flow  information  between  them.  Aggarwal’s  performance  indicator  filled  in 
this  gap  where: 


Rfc  <  PI  <  R,t 

The  PI  fo  •  the  required  flows  C’a  It’ss  than  C',„or  for  the  example  network  are 
a.s  follows  where  the  definition  of  ic,  is  modifled  as; 

[  CjCr  if  c,  <  C'r 
Wi  =  i 

1  1  otherwise? 


Mow  lfc(|uirefl 

lU 

7  <  <  9 

.b:f98 

b  <  r,i  <  7 

.fi:M  1 

•1  <('ti<  b 

.7.’}bS 

2  <  Cn  <  1 

.7022 

It) 


The  expected  maximum  flow  for  the  network  can  also  be  calculated  by  summing 
the  state  probabilities  times  the  capacity  or  maxinuini  flow  of  that  state.  For  the 
above  network,  the  expected  maximum  flow  was  4.78.  Yims  lower  bound  for  the 
example  network  was  4.69. 

Aggarwal’s  reliability  performance  index  provides  valuable  insight  into  the  flow 
capabilities  of  stochastic  networks.  The  information  though  comes  at  a  cost,  that 
of  computational  explosion  due  the  exponential  nature  of  the  slate  space.  While 
Brown  has  provided  an  algorithm  for  determining  the  network  success  states,  they 
still  number  a  large  fraction  of  the  total  states  and  become  very  large  for  any  re¬ 
alistic  network.  The  algorithm  also  requires  enumeration  of  all  the  source  to  sink 
paths.  Due  to  an  artificial  intelligence  based  path  enumeration  program  written  by 
Yim  (23).  the  path  enumeration  part  can  be  generated.  The  second  difficulty  with 
Aggarwal's  method  is  determining  the  flow  capacity  for  all  the  success  states.  While 
there  are  numerous  efficient  algorithms  and  commercial  network  packages  to  solve 
for  the  maximum  network  capacity,  again  the  calculations  required  for  all  the  states 
becomes  computationally  infeasible  for  large  networks. 

.Aggarwal's  approach  for  examining  the  flow  reliability  of  a  stochastic  network 
has  been  demon.strated  on  a  small  sample  network  to  establish  a  base  from  which 
to  improve  upon.  The  network  performance  information  generated  is  valuable,  but 
improvemenis  in  flecrea.sing  the  computational  explosion  need  to  be  invest igat^tl. 
^’im  has  <leveloped  an  efficient  bounding  model  for  the  expected  maximum  flow. 
Coupling  this  with  an  efficient  ,s  -  /  reliability  im-asure  will  give  two  performance 
measures  that  although  not  as  complete  as  .-Nggarwal’s  mea.sure.  can  gi'e  the  decision 
maker  a  basis  for  a  better  uiulerstaiuling  of  the  nc-twork  performance. 

2.5.2  Alltrnafirfs  to  Cmoplctt  I  'nunu  vntinn.  Brovan  and  Hall  have  shown 
that  virtually  all  network  udiability  problems  are  .\I*-hard  (19).  Complete  emimer- 
ation  of  the  succt'ss  stales  can  provide  varying  insights  into  the  performance  of  a 
network  including  .s  /  reliability,  performaiici*  iiulexes.  riul  ex|M*cted  iiiaxiinum 
flow.  Several  methodologies  exist  ho'sever.  ba.se«l  on  certain  key  .structures  within 
the  network,  to  measure  reliability  ba.'sed  on  other  than  stall's.  .Alternative  inetluHl- 
oiogies  based  on  stall’s,  paths,  and  arcs  will  be  evalualt'i!  in  meastiring  the  .s  t 
reliability.  S«'e  discussions  in  Chapter  1\'  regardinu  probable  stall's,  di.sjoini  paths, 
and  factoring. 
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Table  1.  Network  Success  States 


Stale 

Capacity 

State  Probability 
Ps. 

Expected 

Flow 

5 

.0008192 

.0040960 

5 

.0032768 

.0163840 

5 

.0032768 

.0163840 

5 

.0131072 

.0655360 

5 

.0032768 

.0163840 

5 

.0131072 

.0655360 

5 

.0131072 

.0655360 

5 

.0524288 

.2621440 

5 

.0032768 

.0163840 

4 

.0008192 

.0032768 

4 

.0032768 

.0131072 

4 

.0032768 

.0131072 

7 

.0131072 

.0917504 

5 

.0131072 

.0655360 

4 

0032768 

0131072 

4 

.0131072 

.0524288 

4 

.0131072 

.0524288 

7 

.0524288 

.3670016 

5 

.0131072 

.0655360 

4 

.0032768 

.0131072 

4 

.0131072 

.0524288 

4 

.0131072 

.0524288 

7 

0524288 

.3670016 

2 

.0008192 

0016384 

2 

.0032768 

0065536 

2 

.0032768 

.0065536 

2 

.0131072 

.0262144 

2 

.0032768 

.006.5536 

2 

.0131072 

.0262144 

2 

.0131072 

0262144 

7 

.0-524288 

.3670016 

2 

0032768 

.0065536 

.5 

.0131072 

.0655360 

2 

.0131072 

.0262144 

.0524288 

.2621-140 

2 

.0131072 

0262144 

•5 

.0524288 

.2621440 

2 

0524288 

.0262144 

9 

.2097152 

1.8874368 

\-> 


.8282112 


•1.780032 


2.6  MvHicriitria  Decision  Analysis 

Many  real-world  decisions  involve  conflicting  multiple  objectives,  attributes, 
goals,  and  criteria  which  can  not  be  effectively  reduced  into  a  single  aggregate  crite¬ 
rion  (25:xii).  Multi-criteria  decision  analysis  (MCDA)  combines  the  quantifiable  as¬ 
pects  of  mathematical  optimization  with  the  qualitative  aspects  of  a  decision  makers 
(DM)  preferences  to  arrive  at  a  best  compromise  solution  for  the  multiple  objective 
optimization  problem  (MOP)  (20:5-8). 

Due  to  the  conflicting  nature  of  the  objectives,  several  solutions,  called  efficient 
solutions,  are  obtained.  An  efficient  solution  is  one  where  an  improvement  in  any 
other  objective  would  degrade  one  or  more  of  the  other  objectives  (11:1270).  The 
efficient  frontier  consist  of  all  the  efficient  solutions..  This  set  is  also  known  as  the 
nondominated,noninferior.or  pareto  optimal  solutions  (21:08).  The  best  compromise 
solution  is  that  efficient  solution  which  maximizes  the  DM’s  value  or  preference 
function,  assuming  more  of  each  objective  is  preferred  to  less  (11:1270). 

In  addition  to  an  optimization  methodology,  some  scheme  to  obtain  and  formu¬ 
late  the  ])reference  function  is  required.  MCDA  methods  can  be  classified  into  three 
categories  based  on  the  timing  of  obtaining  the  DM’s  preference  structure  relative 
to  the  optimization  (11:1271): 

1.  prior  to  the  optimization  (priori) 

2.  after  the  optimization  (posteriori) 

3.  during  or  in  secjuenct'  with  (progressive) 

The  first  approach  requirc’s  interviews  with  the  DM  prior  to  optimization  to 
forniulatt'  the  prefert'iice  function.  The  d('termination  of  the  function  may  require 
a  j)rohibitive  amount  of  time  and  effort  accompanied  by  the  DM's  difficulty  in  ex- 
pix'ssing  the  required  information  (11:1271' 

The  .second  api)roach  generates  all  oi  most  of  the  elficient  solutions,  presenting 
them  to  the  D.M  for  a  most  |>relerred  selection.  'I’here  are  three  problems  associat.('d 
with  this  approach;  first,  the  material  presented  to  the  DM  may  be  difficult  to 
understand:  second,  many  real  problems  are  too  large  to  solve  for  most  of  the  efficient 
solutions:  and  third,  the  numix'r  of  efficient  solutions  presented  is  too  large  for  the 
DM  to  analyze  effectively  (11:1273).  These  methods  may,  however,  be  u.M'ful  in 
generating  efficient  inputs  for  the  third  approach  discussed  below  (21:98). 


In  the  third  approach,  the  DM  interacts  with  the  optimization  process  provid¬ 
ing  preferences  in  an  iterative  manner.  This  approach  is  also  known  as  an  interactive 
multiple  objective  optimization.  In  1982,  Zeleny  stated  “Some  approaches,  although 
promising  and  potentially  very  useful,  are  not  yet  sufficiently  developed  and  theoret¬ 
ically  grounded  to  warrant  a  serious  review  (for  example,  interactive  programming 
approaches)."  (25:xii)  In  1988,  The  CONDOR  report  stated  “Interactive  software 
will  require  more  realistic  representation  of  decision  maker  preference  that  reflect 
lack  of  surety  and  preference  changes  that  arise  as  interaction  proceeds.”  (10:624) 
In  1991,  however,  Shin  and  Ravindran  suggest  that  the  interactive  methods  are  con¬ 
sidered  “promising"  and  comparative  studies  indicate  superiority  over  the  other  two 
approaches  (21:98). 

Shin  and  Ravindran  (21)  divide  the  interactive  methods  into  the  following 
categories:  feasible  region  reduction  methods;  feasible  direction  methods;  criterion 
weight  space  methods;  tradeoff  cutting  plane  methods;  Lagrange  multiplier  methods; 
visual  interactive  methods;  branch-and-bound  methods;  relaxation  methods;  and 
other  important  methods.  Each  will  be  briefly  reviewed  referencing  the  Shin  and 
Ravindran  Survey  (21 )  which  is  the  most  current  and  extensive  survey  on  the  subject. 

2.6.1  I^easiblc  Region  Reduction  Methods.  Each  iteration  consist  of  a  calcula¬ 
tion  i)hase,  a  decision  phase,  and  a  feasible  region  reduction  plia.se.  In  the  calculation 
phase,  an  ideal  solution  is  obtained  from  the  nearest  efficient  solution  with  respect 
to  given  weights.  The  D.M’s  responses  in  the  decision  phase  are  u.sed  to  create  ad¬ 
ditional  constraints  which  reduce  the  feasible  region.  The  iterations  continue  until 
the  DM  feels  the  current  solution  is  the  best  compromise  solution  (21:100). 

2.6.2  Feasible  Ditection  .Methejd.  This  is  an  ileiati'e  method  which  starts 
with  a  feasible  .solution  and  proceeds  to  a  more  prefi'ired  solution  using  a  direction 
and  step-size,  based  on  the  DM  s  |)references.  'I’he  pionei'ring  method  is  the  GDP 
procedure  by  Geoffrion  which  is  a  modified  PVank  Wolfe  method.  Sevi'ial  exti'iisions 
have  been  developed  to  improve  I  he  direction  finding  step  or  t  he  imbedded  lim*  search 
(21:101,102)., 

2.6.3  Criterion  Weight  Spaee  .Methe/d.  This  method  combines  tlu' objectives 
into  a  single  objectiv('  by  using  weighting.  .A  set  of  tradeoffs  a.ssociated  with  the 
ciirnuit  single  weighted  objective  is  presented  to  the  t)lM  whose'  responses  are'  used 


to  create  additional  constraints  on  the  weights  and  generate  a  new  efficient  solution. 
The  iterations  end  when  the  DM  is  satisfied  with  the  current  solution  (21:102,104). 

5.6.4  Tradeoff  Cutting  Plane  Method.  This  approach  is  a  variation  of  the 
feasible  direction  method.  Cutting  planes  are  used  iteratively  to  reduce  the  feasi¬ 
ble  region  eliminating  the  need  for  a  line  search.  Several  modifications  have  been 
developed  to  reduce  the  DM’s  burden  in  the  interactive  process  (21:104). 

5.6.5  Lagrange  Multiplier  Methods.  These  methods  use  the  Lagrange  multi¬ 
pliers  of  the  constraints,  resulting  from  the  maximization  of  one  objective  relative 
to  the  bound  set  of  objectives,  to  form  tradeoff  functions.  Interactions  with  the  DM 
are  then  used  to  generate  shadow  prices  of  the  bound  objectives  and  thus  define  a 
.surrogate  worth  function  (21:104.106), 

2.6.6  Visual  Interactive  Methods.  These  methods  use  graphic-aided  interac¬ 
tive  approaches  as  an  extension  of  the  GDF  method..  A  graphic  of  a  subset  of  the 
efficient  frontier  is  generated  each  iteration  for  interaction  with  the  DM.  This  allows 
the  DM  to  control  the  efficient  frontier  through  the  interactive  process.  Shi  states 
that  with  advanced  personal  computers,  this  approach  is  becoming  popular  (21 :106). 

2.6.7  Brnneh-and-Bound  Method.  Thih  method  divides  the  objective  space 
into  subsets  where  each  subset  is  a  branch  and  furthei  branching  can  occur  if  it  ha.s 
promise.  An  idea!  solution  is  determined  at  each  branch  and  is  used  to  form  an  up])er 
bound  foi  that  branch.  Each  .solution  is  compared  to  the  incumbent  solution  through 
interaction  with  the  DM.  A  branch  is  fathomed  if  dominated  by  the  incumbent 
.solution  (21:107). 

2.6.8  Rila.ration  Method.  This  nu'tliod  generates  a  master  LP  problem  equiv¬ 
alent  to  the  original  problem  and  is  solved  iteratively  by  relaxation  of  some  con¬ 
straints.  .'\t  each  iteration,  bounds  of  the  objective  functions  are  pre.senled  to  the 
DM  for  interaction  (21:107). 

2.6.9  Other  Methods.  Other  le.ss('r  list'd  but  iniporlaiit  methods  to  consider 
include  seque’itiai  methods,  scalarizing  function  methods,  fuzzy  methods,  and  sta¬ 
tistical  methods  (21:107.108). 


I.') 


The  effectiveness  of  the  methods  depends  on  problem  structure  and  the  char¬ 
acteristics  of  the  methodology  selected  (21:108).  The  characteristics  to  consider  are 
interaction  style,  solution  approach,  applicability,  and  mathematical  programming 
required  (21:109).  In  addition,  the  methods  should  be  evaluated  with  respect  to 
the  DM’s  cognitive  burden,  ease  of  actual  use,  effectiveness  in  the  decision-making 
process,  and  the  ability  to  handle  DM  inconsistencies  (21:110). 

Buchanan  and  Daellenbach  (9)  performed  a  comparative  evaluation  of  four 
interactive  methods  in  1987.  They  concluded  that,  “DM’s  seem  to  prefer  solution 
methods  where  they  arc  in  control,  and  where  they  are  allowed  to  backtrack  and 
change  previous  inconsistent  decisions.'’  (9:358)  In  addition,  they  suggest  that  the 
D.M  can  reasonably  demand  the  information  presented  be  in  a  high  quality  graphics 
form  (9:358). 

2.1  Summary 

Methodologies  exist  to  calculate  the  maximum  expected  flow  (lower  bound) 
and  reliability  for  stochastic  communication  networks.  Separate  investment  strat¬ 
egy  models  have  been  developed  to  improve  the  network  flow  by  increasing  either 
arc  capacities  or  survivabi'ities.  In  addition,  the  development  of  an  artificial  intelli¬ 
gence  program  to  enumciate  the  paths  within  the  stochastic  network  decreases  the 
time  and  effort  rcHiuired  for  the  above  calculations.  Finally,  numerous  interactive 
multiple  criteria  decision  analysis  tools  are  available  for  application  to  the  problem 
of  analysing  trade-offs  in  improving  the  performance  of  stochast ic  communications 
net  works. 


III.  Methodology 


An  overall  research  plan  was  accomplished  in  order  to  fulfill  the  research  ob¬ 
jectives  outlined  in  Chapter  1.  The  research  plan  consist  of  the  following  steps  1)  un¬ 
derstanding  the  problem,  2)  formulating  the  reliability  performance  measure  3)  for¬ 
mulating  the  reliability  improvement  model,  4)  formulating  the  nnilticriteria  model, 
5)  selecting  software  to  implement  and  integrate  the  models,  and  6)  analyze  com¬ 
munication  networks. 

3.1  Understanding  the  Problem 

The  performance  of  stochastic  networks  can  be  evaluated  using  several  param¬ 
eters.  This  research  concentrated  on  two  specific  performance  parameters,  source  to 
sink  expected  maximum  flow  and  source  lo  sink  reliability.  Both  required  method¬ 
ologies  to  measure  and  improve  each  parameter,  after  which  tradeoff  methodolo¬ 
gies  were  applied.  For  this  research,  the  tradeoff  was  between  improving  network 
expected  maximum  flow  through  increased  arc  capacities  and  survivabilities,  and 
increasing  network  reliability  through  increased  arc  survivabilities. 

The  calculation  of  the  two  performance  parameters  for  large  stochastic  net¬ 
works  was  not  an  easy  task  due  to  the  exponential  nature  of  tlu'  calculations.  In 
general,  the  calculation  of  the  exact  perforinance  values  is  NP-llard  meaning  there 
exists  no  known  algorithm  that  can  solve  for  the  value  in  polynomial  time.  Faced 
with  the  NP  nature  of  the  proldem.  three  general  types  of  methodologies  have  been 
applied  by  researchers  in  calculating  the  performance  parameters.  The  first  is  simu¬ 
lation.  which  mod('ls  the  network  and  given  a  large  number  of  samples  will  calculate 
a  statistically  significant  value  that  approximates  the  exact  value,  lb  get  an  accurate 
approximation  though  requires  a  very  large  number  of  sample.s  with  a  coriespond- 
ingly  large  run  time.  'I'he  simulation  approach  was  not  considered  for  this  research, 
although  previous  simulation  work  done  by  Bailey  (.o)  was  n.sc'd  as  reference  for  the 
network  analysis  portion  of  this  research.  The  second  approach  has  been  to  bound 
the  exact  value,  thus  calculat  ing  an  ui)pcr  and  lower  bound  for  t  he  <’x;; "t  performance 
measure  value.  'Phis  approach  reduces  the  number  of  states  consid<'red  and  thus  may 
be  computionally  h'asible givc'ii  the  bounds  are  sufficiently  tight  to  Ire  useful  as  a  |)er- 
formance  measure.  'I'lie  third  approach  is  to  increase  the  effi<  icuicv  of  nonpolynomial 


algorithms  to  the  point  that  the  required  run  time  and  memory  requirements  are 
sufficiently  reduced  so  as  to  meet  the  time  and  memory  constraints  of  the  problem 
to  be  solved.  The  last  two  of  the  above  three  methodologies  will  be  examined  with 
respect  to  network  expected  maximum  flow  and  leliability  performance  models. 

3.2  Formulating  the  Reliability  Performance  Model 

The  calculation  of  the  reliability  performance  measure  can  be  accomplished 
through  four  general  techniques.  The  lirst  using  complete  state  enumeration  becomes 
computationally  infeasible  for  even  medium  size  networks  but  can  provide  valuable 
insights  when  applied  to  small  models.  The  other  three  techniques  consist  of  the 
most  probable  states,  disjoint  products,  and  factoring.  Each  will  be  investigated  for 
its  applicability  to  the  research  problem  and  presented  in  Chapter  IV. 

The  expected  maximum  flow  performance  measure  will  be  calculated  using 
Yim’s  lower  bound  formulation  which  calculates  a  sufficiently  tight  lower  bound 
using  path  enumeration  as  discussed  in  the  literature  review. 

3.3  Formulating  the  Reliability  and  Capacity  Improvement  Models 

Once  the  performance  measure  models  were  selected,  methodologies  to  allow 
inve.stment  for  improving  the  measures  needed  to  be  developed.  Caught  (12)  had 
developed  an  investment  strategy  which  increased  the  lower  bound  of  the  expected 
maximum  flow  by  increasing  aic  survivabilities.  While  this  had  a  side  effect  of  in¬ 
creasing  network  reliability,  it  did  not  maximize  network  reliability.  The  most  desired 
improvement  model  would  be  one  that  maximized  a  reliability  mathematical  expres¬ 
sion.  Due  to  the  reliability  im'thodology  selected,  a  mathematical  expre.ssion  was 
not  generated  for  us('  as  a  r('liability  improvement  objective  function.  In  addition,  a 
reliability  expression  for  large  networks  would  result  in  an  exceedingly  long  nonlinear 
expression  requiring  large  amounts  of  memory  to  store  and  optimize,  if  at  all  pos¬ 
sible.  Thus  a  linear  heuristic  methodology  by  .Iain  and  Go|)al  (l-'i)  was  lued  which 
did  not  require  a  reliability  expression  to  maximize  the  network  reliability.  The 
methodology  orders  the  network  arcs  with  lespect  to  their  potential  contribution  to 
the  overall  network  r('liability.  In  addition  to  not  ix'qiiiring  a  reliability  expression. 
th<‘  methodology  was  linear  in  natnie.  greatly  reducing  the  computational  complex¬ 
ity  atid  avoiding  the  local  optimum  problems  as.sociated  with  Caught's  nonlinear 
improvement  model,  .lain  and  Copal's  method  will  be  described  in  Chapter  IV. 


As  with  the  expected  maximum  flow  calculation,  Yim’s  capacity  improvement 
model  will  be  used,  which  was  examined  in  the  literature  review', 

3.4  Fornmlating  the  Muliicriteria  Model 

Given  an  objective  function  for  each  criteria.,  expected  flow'  and  reliability, 
a  multicriteria  optimization  model  was  needed  to  generate  the  trade-off  region  or 
efficient  frontier  for  the  two  criteria.  Lacking  a  criterion  function  for  network  relia¬ 
bility,  two  modified  approaches  to  examine  the  trade-off  reqion  were  investigated  in 
Chapter  V. 

3.5  Selecting  Soft.iuar<= 

Given  the  performance  measure  and  improvement  models,  softw'are  was  re¬ 
quired  to  implement  the  models.  Previous  work  by  Yim  and  Gaught  used  several 
different  off-the-shelf  commercial  solver  packages  to  include  GINO  and  LP/MIP-SS. 
The  General  Algebraic  Modeling  System,  GAMS,  was  selected  both  for  its  ability 
to  solve  linear  and  nonlinear  models  on  the  personal  computer  and  its  ease  in  con¬ 
verting  from  one  model  to  another.  In  addition  to  the  GAMS  solver,  Yim's  Formula 
program  was  us(’d  for  network  path  generation  and  which  required  a  Prolog  compiler. 
Finally,  integration  procedures  and  input  fik'  generation  programs  wer('  written  in 
Pascal. 

3.6  .‘\n(ilgzing  Communication  Networks 

'fhe  aliove  methodologies  were  applied  to  one  small  example  network  and  three 
large  realistic  networks.  'I’he  example  netw'ork  was  used  to  demonstrate  the  appli¬ 
cation  of  the  models  to  stochastic  netw'orks  while  the  large  networks  were  analyzed 
with  respect  to  their  initial  performance  and  sub.sequent  improved  performance.  Fi¬ 
nally.  the  Iradc'-off  region  was  examined  for  the  networks.  The  description  of  the 
three  large  nc't works  along  with  their  respective'  analysis  i.s  presented  in  Chapter  \'ll. 
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IV.  Reliability 


4.1  Introduction 

Several  techniques  exist  to  measure  the  reliability  of  stochastic  networks.  The 
three  major  techniques  appearing  in  the  literature  were  examined  to  cieteimine  which 
was  best  suited  for  this  research.  The  first  technique  examined  was  that  of  disjoint 
products  where  the  network  paths  are  used  to  generate  disjoint  terms  for  which 
the  sum  of  all  terms  is  the  exact  network  reliability  value.  The  second  technique 
involved  the  network’s  most  probable  states  where  only  those  states  that  contribute 
the  most  to  the  network  reliability  are  used,  thus  generating  an  upper  and  lower 
bound  to  the  exact  reliability  value.  Finally,  the  recursive  fechnique  of  factoring  in 
conjunction  with  reduction  techniques  was  examined  in  the  calculation  of  the  exact 
reliability  value.  The  three  techniques  were  applied  to  Figure  2  for  illustrative  as 
well  as  evaluative  purposes. 
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Figure  2.  Example  Network 
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4-S  Disjoint  Froducl  Algorithms 


Given  the  m  success  paths  P^.P2,  -,Pm  are  known,  the  system  success  can 
be  described  as: 


S  =  F,  U  P2  U  •  •  •  U 


If  the  paths  are  made  disjoint  (mutually  exclusive),  then  the  s  ~  t  reliability 
can  be  described  by: 


R,t:=  Pr{S)  =  Pr{PiU  P2U---U  Pm) 


Aggarwal  (3:83-85)  presents  an  algorithm  that  makes  the  success  paths  disjoint 
thus  allowing  for  the  exact  calculation  of  the  s  -  i  reliability.  Abraham  (1:58-61) 
presents  an  improved  algorithm  that  provides  a  reliability  expression  where  all  paths 
are  made  disjoint,  Abraham's  algorif  hm  will  be  applied  to  the  same  exaniple  network 
used  in  Chapter  11.  'I'he  palli:^  .ue  first  ordered  by  the  number  ...f  arcs  within  the 
paths.  In  this  ca.sc  all  thrct-  paths  have  three  arcs  so  the  first  to  be  considered 
will  be  path  .4-B-C.  Since  it  is  the  first  path  to  be  considered,  ii  does  not  necxl  to 
be  made  disjoint  with  others,  thus  generates  only  one  product  term,  PaPbPc-.  The 
.second  pails  cjnsiderect  is  E-F-G.  'I'hree  product  terms  arc  generated  to  make  it 
di.sjoint  with  the  first  puili.  g^p,  pjpg.  p„(ji)PfPfp.j.  m'x\  PaPb^cthP/Pn-  Finally 

the  third  path.  .A-D-Cl.  was  made  disjoint  with  the  previous  two.  generating  four 

additional  terms.  p„<ibPd(i, Pg-  P,<lbP-iP<<lsP-,  ,  P^PbgcPd(pp,j  and  p!,pb<lcPdPt<liPa-  'Fhe 
total  reliability  expression  is  as  tollows: 


=  P;PbPc  +  <h pc p J Pa  +  p„  ({bp.  PJ Pa  +  Pn Ph<h  Pc  P fPy  +  Pn  WiPtePa  +  Pn  <lbPdPc  7 iPa  + 
PaPht/ePdf/ePa  +  P,>Pc<lcPdPc<ljPa 


The  resulting  reliability  from  the  above  eight  term  reliability  exprc'ssion  was 
.8282,  which  agrees  with  the  results  obtained  by  complete  enumeration  of  the  3!) 


success  states  in  Chapter  II.  In  his  paper.  Abraham  presents  the  results  of  his  al¬ 
gorithm  on  a  network  consisting  of  12  arcs  and  24  paths.  The  resulting  reliability 
expression  contains  71  terms  compared  to  4096  total  states  for  the  network.  While 
this  algorithm  generates  the  exact  reliability  value,  it  can  also  be  used  to  calculate 
a  lower  bound  by  utilizing  those  terms  with  the  least  number  of  complemented  (c/,) 
terms.  For  the  example  network  used  in  this  paper,  the  first  four  terms  using  only 
one  complemented  arc  will  produce  a  lower  bound  reliability  of  .761856  which  is 
within  10  percent  of  the  exact  value.  In  .Abrahams  network,  using  those  terms  with 
up  to  tw'o  complemented  arcs  results  in  14  terms  producing  a  lower  bound  of  .8369 
which  is  again  within  ten  percent  of  the  exact  reliability  value. 

Given  the  same  number  of  terms  used,  the  closeness  of  the  low'er  bound  to  the 
exact  value  will  decrease  with  lower  arc  survivabilities.  For  the  example  network 
used  in  this  paper,  if  all  arcs  had  a  survivability  of  .6  rather  than  .8.  the  lower 
bound  would  be  .385344  compared  to  an  exact  value  of  .4738176.  This  results  in  a 
lower  bound  within  20  percent  compared  to  the  previous  ten  percent  lesull  when  arc 
survivabilities  were  .8. 

Recent  work  by  bocks  (17)  has  made  further  efficiency  improvements  to  the 
disjoint  product  technique  by  using  rapid  inversions  in  place  of  search  operations. 
For  Abrahams  network  of  2-1  paths,  bocks  generates  60  disjoint  product  terms  com- 
pared  to  Abraham's  71.  K\en  furl'  .‘r  imprcmnnenls  have  been  made  by  lleidtmann 
(13)  who.  for  the  same  network,  generated  only  11  disjoint  product  terms.  While 
lleidtmann  s  algortithm  is  the  most  ellicient.  the  number  of  disjoint  product  Kntns 
still  grows  exponentially  with  the  size  of  the  network.  Thus  for  large  networks,  a 
reliability  e.\i)ie.ssioii  may  contain  thousands  of  terms  with  each  term  containing  tens 
of  products.  cr('ating  an  extreiiK-ly  large  nonlinear  expression. 

/f.-i  Most  !^rol>ahl(  Sl(il(  i'.v  iiw(  ratio  II 

kor  large  lu'l works,  calcidaling  the  exa<t  n’liabilily  value  Ix'comes  computa¬ 
tionally  prohibit iv('.  Rather  than  enumerating  all  states,  bi  and  Sylvester  (16:1 10.5- 
1110)  consider  oidy  the  ni  m()''t  probable  states  to  compute  lower  and  upper  bounds 
on  network  |>ei formanc<'  measures,  to  include  .•«  I  reliability.  .\s  shown  in  Chaptei 
11.  the  probability  of  state  /.•  is  given  by  tin*  product  of  the  arc  succe.ss  probabilities. 
/>,.  aiul  the  arc  failme  |>robabi!il y  r/,  which  is  defined  as  1  ~  />,. 


Li  and  Sylvester  rename  the  arcs  with  an  R,  term  wliere  R,  =  q,/pi.  With  the 
above  renaming,  the  state  probabilities  can  be  calculated  by 


Ps, 


nr=iP.(v./p.) 


T.iS,) 


or 


Ps,  =  (ns=,  P.)  (n;=, 


where 


Ti{S,)  = 


if  arc  i  operates  in  state  Sk 
otherwise 


The  most  probable  state,  Si  is  when  all  arcs  are  operational,  and  the  next  most 
prol»able  state.s  are  tho.se  with  only  on<‘  arc  failure.  Li  and  Sylvestor  (16)  developed 
an  algorithm  called  CM/cr  which  by  using  R,  where  /?i  >  >  •  •  ■  >  Rn-  orders  the 

m  most  probable  states. 

Li  and  Sylvester  (16:1 106,1 107)  also  include  a  method  to  estimate  the  number 
of  states  rc(|uire<l  to  achieve  a  specified  coverage  of  the  state  space  where  /;,  is  defined 
to  l)e  the  |)robal)ility  a.ssociatetl  with  the  states  considering  up  to  /,,  arc  failures  per 
stale: 


./■/.,  =  eLo 


/ 


V 


This  eejuation  assumes  that  the  />  values  ami  thus  the  result itig  q  values  are  the 
same  for  all  arcs.  If  arc  survival  probabilities  are  difh'renl.  s«'ierting  a  p  value  e<|ual 


to  the  lowest  arc  survivability  value  will  generate  a  lower  bound  on  the  state  space 
covered. 

Given  the  w  most  probable  states,  The  lower  and  upper  bounds  foi  s — I  re¬ 
liability  can  be  calculated  where  Li  and  Sylvestor  use  a  reliability  or  connectivity 
performance  measure  C(5V  )  where 


< 


1 

0 


if  arc  7  the  network  is  connected  in 
if  not 


and  thus 


C,,{m)  =  EI’L,  P(S,)C'(S,.) 


Cu(m)  =  P(Sk)Cis,)  +  (1  -  PW) 


In  other  woids.  the  lower  bound  is  the  sum  of  all  the  connected  m  stati's  an<l 
the  upper  boninl  i.^'  one  minus  the  sum  of  all  the  disconnected  rn  state.s.  I  he  upper 
and  lower  l)ound  converge  on  the  exact  reliability  value.  When  all  pos.sible  .states 
are  considered,  the  u|)pcr  and  lower  bounds  equal  the  exact  r(.•liability  value..  For  the 
example  network  with  arc  survivabilities  equal  to  .8.  the  upper  and  lower  bounds 
were  computed  <ousidering  only  slates  with  up  to  two  ai<  failure.''.  The  lower  bound 
is  .795)oW2  and  the  upper  bound  is  .93hlf)l. 

For  large'  imt works  (-It)  arcs),  considering  the  most  probable  states  up  to  .}  arc 
failure's.  'iO.tsT')  state's  will  be  use'd  in  the'  calculations.  With  arc  s|ir\ ivabililie's  of  ..!). 
the  cove'ie'el  stale'  pre)l)abilily  is  2‘l  pe'rcent.  In  e)lhe*r  words,  the  uncertainly  be'lwee'ii 
the  le)\\e'r  ami  upper  boiimls  is  7(i  percent.  If  arc  survival)ilitie's  are  leiwe-re'el  to  .8 
anel  up  te)  five  arc  failure's  are  alle)we'd  per  slate',  ove.-r  2  million  state's  will  be  use'el 
with  a  re'siiliing  unee'il ainl>  of  9.")  perce'iit.  This  eleineutsi rale's  the'  u.se'fi!llne'.ss  e>f  t  his 
appre)ach  is  limile'el  te)  ne-tworks  with  are'  survivabilities  gre'ale'i  than  .9. 
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^-4  Factoring 


The  factoring  theorem  of  reliability  states  that  the  reliability  of  a  binomial 
system  S  can  be  decomposed  with  respect  to  the  probability  of  the  two  possible 
states  (up  or  down)  for  a  selected  arc  : 


/?(5)  =  p,li{S\i  up)  +  q,R{S\j  down) 


The  decomposed  reliability  expression  can  be  applied  recursively  with  reduc¬ 
tion  techniques  applied  within  the  recursions.  Eventually  the  network  is  reduc<'d  ‘o 
a  simple  structure  for  which  the  reliability  can  be  easily  calculated.  The  complexiiy 
of  factoring  algorithms  is  dependent  on  the  selection  rules  for  which  arcs  are  to  be 
factored  (22). 

Page  and  Perry  (IS)  have  developed  a  recursive  computer  program,  dirprog, 
based  on  factoring  in  conjunction  with  reduction  techniques  that  efficiently  solves 
the  5  -  /.  reliability  for  large  directed  stochastic  networks.  StT  .Appendix  F"  for  a 
Pascal  source  code  listing. 

Network  reduct  ion  techniqm's  require  only  polynomial  time  \  ct  by  reducing  I  he 
size  of  the  network,  thereby  reducing  the  stale  space,  lend  to  reduce*  the  expmiential 
growth  of  a  factoring  algorithm  s  backtrack  .‘:«*arch  .structure*  (22:272).  Page  and 
Pe'rry  summarize*  the*  ne*lwe)ik  reeiuction  le‘chni<|ues  use*d  a.s  folleews  (18:')Oi'.-")o!)): 

1.  Re*move  ares  directe*el  into  the  .source  or  out  of  the  sink.  I’liex  are*  irrelevant.. 

2.  Reneove de'ad-end  auel  false  start  ne)ele*s.  .A  dead-enel  node  is  a  noele  either  than 
the*  sink  having  no  arc  elire*eteel  out  ware)  freun  the  peieU*.  .A  fal.se-start  uoele  is  a 
ueiele*  other  than  the  seuirce  having  no  are*  dire*cte*el  into  the*  ne>ele’. 

•2.  If  there*  is  a  single*  arc  out  of  the  souree*  e)r  iute>  the  sink.  e*ontiaet  lire*  arc 
(making  the*  aeljaceiit  noele*  into  the*  ne*w  souree  or  sink).  I’he  reliability  e)f 
the  original  network  is  the  mliabilily  e»f  the*  re*ilnceel  nelweirk  multipiie*d  iw  the 
survivability  of  the  eontract<*el  arc.  I'his  is  tin*  only  re*elurlie>n  that  ge'nerates  a 
multiplying  facten* 

■I.  If  there  is  a  single*  arc  elire*cte*el  intei  e>r  oeit  of  a  nerele*  olhe*r  than  the*  souree*  e)t 
sink,  then  the*  anti-parallel  are*  (if  it  e*xists)  ran  be  re*tne)Ve*ei. 


5.  Series  arc  reductions.  Two  arcs  with  a  common  node  for  a  head  and  tail  with 
survivabilities  pi  and  pz  can  be  replaced  by  a  single  arc  with  survivability  p\P2- 

6.  Parallel  arc  reduction.  Two  parallel  arcs  (arcs  joining  the  same  two  nodes  and 
having  the  same  orientation)  with  survivabilities  pi  nd  p2  can  be  replaced  by 
a  single  edge  having  the  same  orientation  as  the  original  edges  and  having  a 
survivability  of  pi  +  p2  -  PiP2- 

For  the  example  network,  dirprog  was  run  with  the  following  results.,  A  net¬ 
work  reliability  of  .8282  was  calculated,  requiring  3  source/sink  reductions,  4  chain 
vertex  reductions,  and  1  factoring.  The  computation  time  required  was  less  than  .01 
seconds. 


4-5  Evaluation 

The  disjoint  product  technique  can  be  used  to  solve  for  the  exact  reliability 
value  but  for  large  networks,  is  limited  by  the  amount  of  memory  available  to  store 
the  disjoint  products.  A  lower  bound  approach  can  be  used  to  limit  the  number 
of  disjoint  products  but  the  effectiveness  of  this  approach  is  dependent  on  the  arc 
survivabilites  with  high  arc  survivabilities  lending  to  incrca.sed  efficiency.  Lower 
arc  survivabilities,  as  is  .seen  in  this  research,  would  not  benefit  as  much  from  this 
bounding  techniqiK'.  In  addition,  a  1ow(t  bound  without  an  associated  upper  bound 
leaves  a  window  of  uncertainty  from  the  lower  hound  up  to  a  icliability  value  of  one 
for  where  the  exact  reliability  value  lies. 

The  most  probable  state  enuineralion  method  can  be  used  to  calculate  a  lower 
and  upper  bound  for  .s  /  reliability.  While  bi  and  Sylvester  have  an  efficient 
algorithm  to  order  the  most  probable  states,  the  effect iveiie.ss  is  again  dei)endent 
on  the  arc  survivabilities.  In  addition  to  determining  the  most  jn'obable  states,  an 
efficient  means  to  sc'parate  those  states  into  connected  and  non-connected  states  is 
required  for  the  reliability  bounding  calculations.  It  is  also  seen  that  the  efficiency 
for  calculating  the  bounds  det  ieases  with  lower  arc  survivabilities  where  as  shown, 
arc  survivabilities  below  ..9  greatly  increas('  the  computations  re<|uired  to  make  this 
method  computationally  fea.sible  foi  large  lu't works.  Ceiieially,  the.se  methods  are 
applicable  wIkmi  applied  to  reliability  pioblems  wIkmc  the  arc  reliabilities  ar<'  .9 
or  greater.  For  large  network  survivability  problems  wh('re  arc  survivabilities  are 


often  less  than  .9,  such  as  in  this  research,  the  most  probable  state  method  is  not 
applicable. 

The  factoring  technique  in  conjunction  with  reduction  methods  is  ver\'  effective 
in  calculating  the  reliability  of  large  directed  networks  encountered  in  this  research. 
The  networks  lend  themselves  to  available  reduction  methods  used  l>y  Page  and 
Perry  and  the  recursive  nature  of  their  program  enables  large  networks  to  be  run  on 
personal  computers  up  to  a  point  where  the  MS  DOS  stack  limit  of  64K  is  reached., 
h^or  larger  networks,  a  modified  version  of  dirprog  running  under  a  VMS  operating 
system  was  written, 

4.6  Reliability  Improvement  Model 

The  network  reliability  improvement  model  is  based  on  a  linear  heuristic  method 
developed  by  Jain  and  Gopal  (15).  Their  method  calculates  an  important  index,  7/j, 
and  thus  a  ranking  for  each  arc  in  the  network.  The  arcs  with  the  highest  important 
index  are  the  most  vital,  contributing  the  most  to  the  network  reliability  and  thus 
are  assigned  the  highest  reliability.  The  important  index  is  based  on  the  following 
two  observations  by  Jain  and  Copal  (15). 

1.  Low  cardinality  s  -  I  paths  contribute  more  to  network  reliability  than  high 
caidinality  paths  and  so  are  more  important. 

2.  Tlu'  higher  the  fr('(niency  of  occurrence  of  an  arc  in  a  particular  cardinality 
path  set.  the  more  important  it  is. 

The  irn])ortance  index  //,  is  defined  as: 


t 


fu 

NR,rf 


where  the  following  notation  applies 
•  /,,  =  fri'qnency  of  occurience  of  arc  j  in  /  paths  of  cardinality  C, 


•  N Ft  =  number  of  ^  <  paths  of  cardinality  C, 


Jam  and  Gopal  (15)  outline  the  following  four  steps  to  determine  the  important 
indices; 

1.  Generate  all  s  -  t  paths. 

2.  Arrange  all  paths  in  groups  in  order  of  increasing  cardinality.  Count  the  num¬ 
ber  of  paths  (NFi)  in  each  cardinality  (C,)  group. 

3.  Find,  for  all  j,  the  frequency  of  occurrence  /,,  of  arc  j  in  each  group  of  paths. 

J.  Determine  Ilj  for  all  j. 

Using  Formula  to  generate  the  paths  through  a  depth  first  search  process,  the 
important  indices  can  be  calculated  using  the  above  procedure.  A  linear  mathemat¬ 
ical  model  was  then  developed  to  improve  the  arc  survivabilities  with  the  highest 
index,  subject  to  a  maximum  arc  survivability  of  one  and  a  finite  improvement  bud¬ 
get. 

The  objective  function  maximizes  the  sum  of  the  important  indices  over  all  arcs 
Xj  given  each  arc  has  an  initial  survivability  Fj.  The  two  type  of  constraints  ensure 
that  each  arc  has  a  survi\ ability  upper  bound  of  one  and  that  the  total  amount  spent 
on  arc  sin  vivabilitv  improvements,  the  sum  of  increasing  arc  survivabilit  ie^  by  .1 .  n ,. 
is  less  than  or  equal  to  the  total  budget  available  iF.  The  model  is  as  follows: 


MaxEf/,(/^, +  -1-A-,) 

Fj  +  .]-Xj<\  j  =  n 

<  .i 

Xj  >  0 


A  l’a.scal  program  was  written  to  calculate  the  important  indice.'--  for  a  stochas¬ 
tic  network  (see  Appendix  G). 
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V.  Multicriteria  Optimization 


The  traditional  multicriteria  optimization  (MCO)  problem  requires  two  or 
more  criteria  or  objectives  (the  Y  space),  both  of  which  utilize  a  common  set  of 
alteniati\'es  from  the  X  space.  For  the  problem  of  stochastic  network  performance 
improvement,  there  were  two  criterion  objectives  examined  in  this  research.  The  first 
maximized  the  expected  throughput  or  flow  while  the  second  maximized  the  network 
reliability  or  connectedness.  The  alternative  set  X  consisted  of  arc  survivability  im¬ 
provements  and  arc  capacity  improvements.  This  chapter  describes  a  MCO  model 
given  both  criterion  functions  .  For  large  networks  though,  the  network  reliability 
in  this  research  was  calculated  using  a  recursive  technique  which,  in  turn,  did  not 
result  in  a  reliability  objective  function.  Subseciuently,  two  modified  approaches  were 
developed  to  analyze  the  tradeoffs  between  the  two  criterion  objectives. 

5.1  MCO  Model 

The  .MCO  model  consists  of  two  criterion  functions,  CF\  and  CF2.  The  first 
represents  the  lower  bound  for  the  network  expected  flow  where  the  lower  bound 
is  maximized  by  increasing  both  the  path  reliability,  /?,  through  arc  survivability 
im[)rovements.  and  the  path  flow.  /)  through  arc  capacity  improvements,  d,.  The 
first  criteiion  fimction  CF\.  is  equal  to  Caught 's, objective  function  for  his  nonlinear 
models  and  is 


Max  n=,  Fj.f,  where  /?,  =  n,(P.  +  .1  •' A' ) 

'I'Ik'  second  criteiion  function  C/'T  also  nonlinear,  maximizes  the  network  re¬ 
liability.  1‘or  the  example  network.  Figure  :5.  the  second  criterion  function  is  a.s 
calculated  in  Chapter  IV  using  Aggarwal's  disjoint  path  method  and  is 


CF2  = 


(Pi  +  A-,)(P2  +  A2)(P3  +  As) 

+  (1  -  (Pi  +  A, ))(P5  +  AsKPe  +  AeKPr  +  At) 

+  (Pi  +  Ai)(l  -  (P2  4-  A'2))(P5  +  A'5)(P6  +  AV>)(F7  +  A't) 

+  (Pi  +  Ai  )(P2  +  A2)(  1  -  (P3  +  A3))(P5  +  A5)(P6  +  A6)(P7  +  A7) 

-f  (Pi  +  A,)(l  -  (Po  +  A2))(P4  +  A4)(1  -  (P5  +  A5))(P7  +  At) 

+  (P,  +  Ai )( 1  -  ( P2  +  A2))(P4  +  A4)(P5  +  Ao)(  1  -  (Pe  +  A6))( P7  +  A7) 

+  (Pi  +  Ai)(P2  +  A2)(1  -  (P3  +  A3))(P4  +  A4)(1  -  (Ps  +  A5))(P7  +  At) 

+  (Pi  +  A,)(P2  +  A2)(1  -  (P3  +  A3))(P4  +  A4)(P5  +  A5)(1  "  (^6  +  Afi)) 

(Pt  +  At) 


There  are  three  types  of  constraints  in  the  model.  Tliey  are: 

1.  Constraints  to  ensure  arc  survivabilities  are  <  1. 

2.  Flow  capacity  constraints  for  each  path  j. 

3.  A  budget  constraint  limiting  the  amount  spent  on  both  arc  capacity  and  sur¬ 
vivability  improvements  to  a  total  budget  amount,  /?. 

The  first  type  of  constraints,  one  for  each  arc,  were  used  to  ensure  arc  reliabil¬ 
ities  had  an  upper  bound  of  1.  The  constraints  arc 


P,  +  .1  ■  -V,  <  1 


riie  second  type.  How  caj)acity  constraiiils,  were  formulated  by  letting  (i,j  ecpial 
1  if  arc  i  lies  on  i)ath  j.  and  0  otherwise.  I'.sing  lliis  definilion,  the  constraints  for 
flow  capacity,  one  for  each  path,  are 


a,,fj  <  II,  -t-  <1, 


Where  ii,  is  the  capacit\  of  arc  i.  and  il,  is  the  amount  of  ca|)acily  improvement 
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to  arc  /. 


The  third  type;  the  budget  constraint  is 


E"=l(0'c.d,'  +  Or. A',)  <  l3 


Where  <>„  is  the  cost  of  increasing  the  capacity  of  arc  ?  by  1  unit,  Or,  is  the 
cost  of  increasing  reliability  of  arc  i  by  .1,  and  j3  is  the  total  amount  of  the  budget 
available  to  be  invested. 

The  above  two-criterion  objective  problem  (MCO)  can  be  converted  to  a  single 
objective  mathematical  programming  model  by  using  one  objective  as  an  additional 
model  constraint  and  parametrically  varying  its  value  from  its  lower  to  upper  bound. 
For  this  MCO  model,  the  reliability  criterion  objective  was  chosen  for  the  additional 
constraint.  The  lower  bound  for  the  reliability  function  is  when  there  are  no  arc 
survivability  improvements  or  in  other  words,  the  original  network  reliability  of  .8282. 
The  upper  bound  is  when  the  network  reliability  is  equal  to  one.  The  term  A  will 
represent  the  parametric  value  of  the  reliability  function  CF\.  The  nonlinear  MCO 
model  for  the  example  network  is  then 


Max  ZU  lijfj  'vhere  +  -1  ■  -V.) 

s.t . 

CF2  >  A 

/".  +  .1  -..V,  <  1  ?'=l.2 . n 

Ej=i 

EiL:!  +  f>riAi)  ^ 

.V,.  /C /,.  Qf,,  n,.,, /I  .\  >  0  and  o,,  =  0.  I 

5.1 .  /  MCO  .1  ;;«//;.•</>.  Tii('  MCO  model  was  applied  to  I  he  example  network. 
Figure  3.  using  the  C.l.l/.S' solver,  on  a  personal  comiiuter.  I  he  example  network 
consists  of  seven  arcs,  six  node.s  and  three  |)aths  from  source  (node  1)  to  sink  (node 
6).  .Arc  survivabilities  were  initially  .8.  with  an  associated  ca|)acity  as  iliustraterl 
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in  Figure  3.  The  model  was  run  with  a  capacity  improvement  cost  Q;.,  of  1  and  a 
survivability  improvement  cost  Or,  of  1.  The  total  budget  available  /9  was  determined 
to  be  6.  This  is  the  minimum  amount  required  to  improve  all  arcs  in  a  source  to  sink 
path  to  one,  thus  providing  for  a  network  reliability  of  one.  Given  this  minimum 
budget,  if  a  tradeoff  exists,  then  the  budget  would  not  allow  both  the  maximization 
of  exj^ected  flow  and  a  network  reliability  of  one  to  occur  simultaneously. 


Figure'  3.  l-‘,xami)le  Network 


riie  initial  'ompiiler  nm  of  the*  mode'l  |)rodiieed  a  n’liability  value  of  .975  ami 
an  expeelf'd  flow  of  7. 1(i.  This  shows  that  the  lower  bound  const laini  of  .8282  for 
network  K'liability  was  not  a  binding  constraint.  In  other  words,  arc  survivability 
imi)re)vem<'nts  betiefitte'd  both  reliability  ami  expected  flow  without  a  h;ss  to  <’ilher. 
Cl'i  was  then  paraim-t  rically  boumleei  wit  It  reliability  values  of  .t)85  and  1.0.  Now 
the  reliability  constraint.  Cl'i.  is  binding  with  a  resulting  decrease  in  expected  flow 
for  an  increa.se  in  network  reliability.  'I'he  residtiiig  efficient  frontier  is  illustratc'd 
in  Figure  1.  I’lie  model  gc-cieratc'd  those-  poiitts  that  were-  nomlotninated.  creating 
the  elficic'iii  frontier,  for  reliabilitic's  less  than  .075.  the'  resulting  reliability  and 
c'xpecled  flow  values  were*  clominated  by  the'  i)oinl  (.075.  7  10).  'flic'  model  cati  b<* 
lorcc'd  to  generate  the  dominated  points  by  .setting  (ii  ef|ual  to.  rather  than  greater 


than,  its  parametric  bounding  level.  This  modified  model  was  run  for  two  dominated 
reliability  levels,  .87  and  .92,  with  the  resulting  expected  flow  values  plotted  in  Figure 
4. 


Figured.  Example  Network  Efficient  Frontier 


/.i?  Cosling  Analysis  The  MCO  e.xample  above  was  run  using  both  a  ca- 
|)acily  and  survivability  improvement  cost  of  1.0.  The  result  wa.s  the  generation  of 
an  efnci<'nt  frontier  bounded  by  a  lower  reliability  value  of  .97“)  and  an  upper  reli¬ 
ability  value  of  1.0.  Tlie  effects  of  varying  the  cost  improvemc'nt  structure  on  the 
efficient  front  i<'r  wa-s  examined.  When  the  co.st  of  improving  a  unit  of  capacity  wa.s 
inciea.sed  to  2.0.  the  result  was  a  shrinking  of  the  efficient  frontier  to  a  single  point 
at  a  reliability  value  of  1.0  and  an  expected  flow  of  7.30.  In  effect,  the  total  budget 
was  allocated  to  arc  survivability  improvements  which  niaximi.xed  both  reliability 
ami  expected  flow.  On  the  other  hand,  when  capacity  improvc'inent  costs  w(‘re  de- 
crea.sed  to  0.').  the  efficient  frontier  was  strelcherl  between  a  lower  reliability  bound 
of  .ObbO  with  an  expected  flow  of  8.196  and  the  original  upper  reliability  boniul  of 
1.0.  I'hus.  decreasing  the  cost  of  capacity  improvements  relative  to  survivability 


improvements  resulted  in  a  stretching  of  the  trade  olf  region  whereas  increasing  the 
capacity  improvement  costs  shrank  the  trade-off  region  to  a  point  where  there  exists 
no  trade-off.  Further  investigation  into  the  effects  of  varying  costing  structure  on 
the  trade-off  region  is  recommended  in  Chapter  VIII. 

5.1.3  MCO  Suvimary.  The  MCO  model  formulated,  succe,ssfully  generated 
the  efficient  frontier  for  a  small  example  network.  The  results  illustrated  that  both 
reliability  and  expected  flow  can  be  improved  with  no  loss  to  the  other  by  increasing 
arc  survivabilities  up  to  a  specific  reliability  level,  after  which  further  increases  in 
reliability  result  in  a  tradeoff.  By  increasing  reliability  beyond  that  level,  a  decrease 
in  expected  flow  results.  It  should  be  noted  that  the  model  is  highly  nonlinear  in  both 
the  objective  function  ,CFi.  and  the  reliability  constraint.  CF2.  For  large  networks,  if 
a  reliability  expression  were  obtainable,  complications  of  optimizing  highly  nonlinear 
objectives  with  nonlinear  constraints  should  be  expected  to  b.'  encountered. 

Cenerating  the  efficient  frontier  generates  all  the  possible  nondominated  solu¬ 
tions.  One  of  these  solutions  will  maximize  a  decision  makers  preference  function. 
This  optimal  solution  c.an  be  determined  through  two  technic|ue.s.  The  first  would 
Ije  to  compute  a  preference  function  based  on  surveys  given  to  the  decision  maker 
and  then  maximize  this  preference  function  with  respen  to  the  efficient  frontier  so¬ 
lution  set.  d'lies<-{ond  techui(|ue  would  be  to  use  an  interactive  a p|)roarli  where  the 
efiicient  frontier  jKiints  are  generated  interact ivelv  with  the  d('cision  maker.  In  this 
terhni(|ue.  the  decision  maker  s  preference  function  is  imi)licit  in  his  interactive  n'- 
sponses  during  the  efficient  fronti«’r  generation  i)rocess  with  the  proce.ss  termination 
occuriing  at  the  solution  point  which  maximizes  the  decision  makers  preference.s. 

5.,J  ,i  1 0(1  iji  cal  ion. 

The  above  MCO  moflel  ref|uire.s  both  model  criteria  be  ('xpre.ssed  in  math¬ 
ematical  ol)ject.ive  functions,  flie  prol)IeMi  ctv.fjvw't/.d  js  that  for  large  stochastic 
networks,  the  reliabilit\  in  this  re.search  i^  calculated  using  a  recursive  techniriue 
which  «loes  not  result  in  a  matlx’mat ical  expression,  backing  this  stxond  criterion 
function,  two  nx’t hodologies.  Belma.\  and  Flomax.  were  flevelf)ped  to  ('xamine  the 
tradeoff  b»'tween  I'xpecterl  flow  ami  reliability. 
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5.3  Relinax 


The  method  Relinax  used  a  two  step  solution  process  to  examine  reliability 
versus  expected  flow.  The  first  step  maximized  the  network  reliability  using  the  lin¬ 
ear  heuristic  reliability  improvement  model  described  in  Chapter  IV,  parametrically 
increasing  the  amount  of  arc  survivability  improvements  allowed.  This  was  accom¬ 
plished  by  limiting  the  available  arc  survivability  improvement  budget  to  a  specified 
portion  of  the  total  budget  available.  The  remaining  budget  leftover  and  the  result¬ 
ing  optimum  arc  survivabilities  were  then  fed  into  Yim’s  expected  flow  improvement 
model.  The  network  expected  flow  was  then  maximized  constrained  by  the  jiievi- 
ously  decided  upon  arc  survivabiliU  improvements  and  the  budget  remaining  after 
those  im])rovements.  For  the  example  network,  arcs  one  and  .seven  have  an  impor¬ 
tant  index  of  71.07  while  the  remaining  arcs  have  an  index  of  37.0-1.  .'\rc  four's  index 
value  was  increased  by  one  to  ensure  investment  in  arc  four  before  the  others  to  pro¬ 
vide  an  improved  path  (1-4-7).  The  budget  allocated  to  survivability  improvement 
was  increased  by  one  unit  each  run  with  the  remaining  budget  allocated  to  capacity 
improvement.  The  resulting  reliability  and  expected  flow  are  listed  in  Table  2  and 
Figure  .b. 


:r. 


Table  2.  Relmax  Results 


Figure  5.  Relmax  Plot 


5.Jf  Flomax 

The  second  method,  Flornax,  used  (Jaiight's  nonlinear  model  described  in 
Chapter  II  to  maximize  the  network  expected  flow  using  both  arc  capacity  and 
survivability  improvements.  'I'he  model  w<is  modified  with  an  additional  arc  capac¬ 
ity  constraint.  This  constraint  was  incorporated  into  the  model  to  ensure  an  arc's 
capacity  was  not  improved  by  an  unreasonable  amount,  as  determined  by  the  user. 
The  arc  capacity  constraint  is  thus 


u,  -f  (li  <  C' 


mar 


The  resulting  nonlinear  model  maximizing  expected  flow  is 


Max  ZU 


s.t  .- 


where  lij  =  n,(/^i  +  -1  •  -V,) 


+  .I  -.V,  <1  .••=1.2 . V 

(I,  +  (I,  <  ('wu  /  =  1.2... ...» 

T.%.1  O'jfj  <  «•  + 

\,.  P,.  Ij.n,,. Or,,  \  >  0  and  a,,  ~  0, 1 


By  applying  tin'  above  model  to  the  <'xample  network.  th<‘  maximum  expected 
flow  obtainable  within  tlx'  budget  was  obtained.  The  a.s.sociated  reliability  is  cal¬ 
culated  u.sing  Dirpvoij.  This  point  is  wh<u’«’  the'  tradeoff  or  efficient  frontier  begins 
between  expecterl  flow  an<l  r<'lial)ility  and  thus  bounds  the  one  side  of  the  efficient 
fronti<’r.  f-'or  the  examid<' network,  this  point  was  wh<-re  reliability  f’qualed  .97.’)  and 
expectc'd  flow  ecpiah'd  ".  Ki.  1-brcing  the  reliability  l)eyond  .97.0  caused  a  sub.sec|uent 
flecrea.M'  in  expe<  ted  flow  as  shown  with  the  .XK’O  moflel.  backing  a  reliability  fmic 
tion.  the  reliability  cannot  be  foiced  to  increase  with  a  .■'ubsef|uent  maximization 
of  exp<'ct<'d  flow.  However,  given  the  minimum  binlget  to  |>rovi<Ie  a  perfect  |>ath 
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or  reliability  equal  to  one,  Yim’s  lower  bound  model  can  be  run  to  calculate  the 
expected  flow  for  the  condition  when  all  the  budget  has  been  spent  to  provide  a 
network  reliability  of  one.  For  the  example  network,  a  budget  of  6  will  be  used  up 
in  improving  path  (1-4-7)  to  a  perfect  reliability  of  one.  The  a.ssociated  expected 
flow  is  6.S4.  The  efficient  frontier  is  thus  bounded  for  the  example  network  as  shown 
in  Figure  6.  In  addition,  an  ideal  was  defined  as  the  maximum  obtainable  values 
for  the  two  critera.  J'he  trade-off  region  was  thus  bounded  by  the  box  formed  by 
the  lower  and  upper  reliability  bounds  and  the  ideal.  All  other  investment  feasible 
investment  options  were  dominated  by  this  region. 


Figure  6.  Flornax  Results 


Sdimnarij 

1  he  ideal  .MCO  approach  reriuires  mat lu’iiiat ical  expi(‘.'''-!ons  for  both  criterion 
fuMctioiis.  expected  flow  and  reliability.  (liven  that  for  large  stochastic  networks. 


a  reliability  expression  is  not  computationally  feasible  to  obtain,  the  tradeoff  be 
tween  the  two  objectives  were  analyzed  using  two  different  methodologies.  'I’he  first 
method  initially  maximized  the  network  reliability  using  the  linear  heuristic  reliabil¬ 
ity  improvement  mc>del.  them  u.sed  the  resulting  arc  survivability  improvements  to 
maximize  the  expected  flow  through  capacity  improvements  with  the  remaining  bud¬ 
get.  'I  his  was  accomplished  using  \’im*s  linear  expected  flow  improvement  model. 
The  second  nonlinear  method  maximized  the  expected  flow  by  both  arc  survivability 
aiifi  arc  capacity  improvements.  Tfie  resulting  iM'twork  nTiability  was  then  calcu¬ 
lated  ba.sed  on  the  arc  survivability  improvtmieuts  nuKle.  This  point  \viis  the  lower 
reliability  Iround  for  the  efficient  frontier.  The  upper  reliability  bound  for  the  effi¬ 
cient  frontier  was  generateiled  by  calculating  the  <'xp<‘cted  flow  when  the  network 
relial)ility  ('(pialed  one.  ?\lodel  twu  thus  bounds  the  efficient  frontier  and  ther<‘by 
bounds  the  Irade-ofl  region  for  the  network.  Both  techniqiK's  were  applied  to  large, 
realistic  networks  and  analyzed  in  Chapter  VII., 


VI.  Integration 


This  chapter  contains  the  description  of  tools  and  programs  i"  .  'n  integrating 
the  expected  flow  and  reliability  improvement  models  with  Fortnu.u  and  Dirprog. 
The  following  sections  describe  the  tools,  files,  and  programs  used  in  the  above 
integration. 

6. 1  Tools 

The  following  software  packages  were  required  for  this  research:  GNA,  Ar- 
ity/PwlogVevsion  5.0  Interpreter,  Formula  Version  3.0,  G/1M5  Version  2.05/S,  Tui'bo 
Pascal  Version  5.0,  and  Dirprog.  In  addition,  an  IBM  compatible  386-25  personal 
computer,  a  Sun  386i  workstation,  and  a  DEC  8550  mainframe  were  used.  A  de¬ 
scription  of  each  tool  follows. 

6.1.1  GNA.  Graphical  Network  Analyzer,  is  an  interactive,  graphical  com¬ 
puter  program  for  the  design,  display,  and  analysis  of  network  models  (14:6).;  In 
addition  to  GNA  providing  a  method  to  graphically  input  and  represent  a  network, 
it  also  ha.s  the  option  to  convert  the  network  structure  into  an  arc  based  input  file 
for  Formula.  The  coin'ert  option  splits  all  stochastic  nodes  into  two  perh'ct  nodes 
with  a  connecting  arc  rei)rosenting  the  stochastic  nodes  survivability,  (.'onvert  also 
adds  an  artificial  source  and  sink  to  the  network  as  required  by  Formula.  GN.A  was 
used  to  graphically  draw  and  convert  networks  analyzed  for  subse<iuent  input  into 
Formula.  Due  to  the  large  niemorj  requirements  of  6'A’.4,  it  was  run  on  the  Sun  386i 
workstat  ion. 

6.1.2  .Anlg/ Prolog  hih  rprelcr.  'Fhe  .4rii y/Prolog  Veision  5.0  Interpretei'  is 
an  enhanced  Prolog  artificial  intelligence  language  interpreter  produced  by  the  .Arity 
('orporation  of  Concoid.  iMassachu.setts  (4).  Eidiancements  incluch'  an  inU'grated 
editor,  pull-ilown  window.^,  and  window  creation  capabilities.  The  interpretei  runs 
under  the  DOS  environment  and  was  used  on  a  i>ersonal  computer  to  edit  and  run 
Formula  Version  3.0. 


6.1.3  Formula  Version  3.0.  Version  3.0  is  a  modified  version  of  Gaught's 
Formula  Version  2.0  (12:252-275)  which  was  in  turn  based  on  Yim’s  original  For¬ 
mula  program  (23:99-117).  Formula  is  written  in  the  Prolog  artificial  intelligence 
programming  language  and  requires  the  Ariiy/Prolog  interpreter  to  run.  Yim  and 
Gaught  used  Formula  to  find  all  network  source  to  sink  paths  and  then  to  formu¬ 
late  their  models  creating  appropriately  formatted  files  for  input  into  predetermiiied 
commercial  mathematical  solver  packages  (GINO  or  LP/MIP-83). 

Formula  has  been  modified  creating  version  3.0  for  two  primary  purposes  in 
relation  to  this  work.  The  first  is  to  create  a  file  paih.f  which  lists  all  network  source 
to  sink  paths.  The  second  purpose  is  to  create  three  additional  files  —  prob.f,  cap./, 
and  net. top  —  which  contain  the  arc  survival  probabilities,  the  arc  capacities,  and 
the  network  topology  described  in  arc  ])arcnt-child  relationships.  The  above  files  will 
be  created  when  option  eight,  Formulate  Reliability  Files,  is  selected  when  running 
Formula  Version  3.0.  A  user’s  manual  for  \''ersion  2.0  with  appropriate  additions  for 
Version  3.0  enhancements  is  contained  in  appendix  D  while  a  complete  source  code 
listing  of  Formula  Version  3.0  is  contained  in  appendix  E. 

O.l.i  GAMS.  General  Algebraic  Modeling  System  is  a  commercial  software 
package  developed  by  the  World  Bank,  that  allows  mathematical  programming 
models  to  be  entered  in  concise  algebraic  statements,  then  solved  using  the  lin¬ 
ear  (BDMLP),  nonliiK'ar  (MINOS  5).-  or  mixed  integer  (ZOOM)  solvc'rs  included. 
Using  a  high-level  language.  G.\.\IS  allows  for  the  compact  representation  of  large 
and  complc^x  models,  simple  and  safe  change’s  to  model  specifications,  unambiguous 
statements  of  algebraic  relation.ships,  and  model  devseriptions  that  arc  independent 
of  solution  algorithms  (7:3).  X’ersion  2.05/S  is  the  personal  computer  student  vc’rsion 
running  under  the  DOS  c’nvironment. 

6.1.5  Turbo  Pai^ral.  Version  5.0  of  Turbo  FuscmI  is  a  structured,  high-level 
language  used  to  write  executable  programs  under  the  DOS  environment.  While 
there  is  a  high  degree  of  compatibility  with  \’er.sions  3.0  and  4.0,  there  arc'  differc'iices 
which  the  reader  can  examine  in  (():appendix  A).  It  also  should  be  notc'd  that  Turbo 
Pascal  h  not  compatible  with  .A.NSl  Pa.scal. 

6.1.6  Dirprog.  'I'he  rc'liabilily  d('t.erminat ioti  program,  Ihrprog.  is  a  'I’urbo 
Pascal  basc'd  piogiam  writtcui  by  bavon  Page  and  .)o  Perry  to  solve  for  the  ('xact 


reliability  of  directed  stochastic  networks  as  described  in  (18).  The  input  file  name 
is  input  by  the  user  from  the  screen  and  an  output  file  is  generated.  A  source  code 
listing  is  in  appendix  F. 

6.1.7  Modprog.  This  is  a  modified  ANSI  Pascal  version  of  Dirprog  compiled 
on  the  DEC  85.50  mainframe  under  the  VMS  operating  environment.  Modprog  reads 
from  the  input  file  infile.dat  and  the  results  are  output  to  the  file  outfile.dat.  The 
format  of  the  input  and  poutput  file.s  are  the  same  as  with  Dirprog.  Modprog  allows 
large  networks  that  otherwise  would  exceed  the  64k  stack  limit  under  MS  DOS  to 
be  run.  A  source  code  listing  is  includedin  appendix  F. 

6.1.S  Capinv.  The  Turbo  Pascal  program  Capinv  is  used  to  generate  the 
GAMS  input  file  Capinv. gms  for  the  capacity  improvement  model.  It  requests  the 
cost  of  improving  one  unit  of  arc  capacity'  and  the  total  budget  available.  A  source 
code  listing  is  included  in  appendix  G. 

6.1.9  Relinv.  This  is  another  Turbo  Pascal  program  used  to  generate  the 
GAMS  input  file  Relhuer.gms  for  the  linear  heuristic  reliability  improvement  model. 
It  request  the  user  for  the  cost  of  improving  an  arc’s  survivability  by  .1,  and  the 
total  budget  availabhc  A  source  code  listing  is  included  in  appendix  G. 

6.2  Files 

There  are  .several  different  file.s  u.sed  in  this  lesearch.  A  brief  description  of 
each  follows: 

•  forniiii.ari  is  a  file  generated  by  G.V.l  which  contains  the  network  topology 
alon^  with  all  arc  survivabilities,  capacities  and  costing  information.  It  is 
formatted  for  input  into  Forniiila. 

•  palh.f  ls  a  file  generated  by  Formula  \ersion  ■‘I.O  which  contains  all  network 
source  to  sink  paths  in  an  arc  based  description. 

•  proh.f  IS  a  file  geix’ialed  by  Form.'la  \ersion  .’I.O  which  contains  th<'  network 
arc  survival  probabilities. 

•  cap.f  IS  a  file  generated  by  Formula  Version  3.0  which  contains  the  network  arc 
capacities. 


net.top  is  a  file  generated  by  Fonmda  Version  3.0  which  contains  the  network 
topology  as  represented  by  arc  parent-child  relationships. 

rclhuer.gms  is  a  file  generated  by  the  program  Relinv  which  contains  the  relia¬ 
bility  improvement  model  for  input  to  GAMS. 

capinv.gms  is  a  file  generated  by  Capinv  which  contains  the  capacity  improve¬ 
ment  model  for  input  to  GAMS. 

The  integration  of  the  files  and  programs  is  illustrated  in  figure  7. 


GNA 


GAMS 


Dirprog 


VII .  Results  and  Analysis 


Two  networks,  A  and  B,  were  analyzed  witli  respect  to  the  three  objectives  of 
this  work.  First,  the  original  network  performance  parameters  of  expected  flow  and 
reliability  were  calculated.  Second,  a  linear  heuristic  reliability  model  was  applied  to 
examine  the  priority  ranking  for  arc  selection  for  survivability  improvement  and  the 
resulting  netw’ork  reliability  achieved.  Finally,  two  techniques  to  maximize  expected 
flow  and  reliability  given  a  specified  budget  were  applied  to  examine  tradeoffs  be¬ 
tween  the  two.  In  addition.  Network  C  was  included  to  demonstrate  the  limitations 
of  the  reliability  measurement  tool,  Dirprog.  under  the  MS  DOS  environment. 

7.1  Netiuork  .4 

Network  A  is  shown  in  Figure  8.  It  consists  of  19  nodes  and  27  arcs.  Tables  3 
and  4  show  the  capacity  and  survivability  values  of  the  arcs  and  nodes.  In  addition. 
Tables  5  and  6  show  the  dependent  arc  and  node  pairs.  The  dependent  pairs  represent 
a  single  medium  where.,  if  dependent,  then  both  of  the  arcs/nodes  in  the  pair  will 
fail  if  one  fails.  In  addition.  Network  A  has  63  potential  paths  between  the  added 
artificial  source  and  sink  nodes.  'Phe  procedure  for  adding  an  artificial  .source  and  sink 
is  described  in  the  Fornntlu  I'sers  Manual  contained  in  Appendix  I).  The  converted 
Network  A  is  illustrated  in  .Appendix  .A. 

7.1.1  Original  17  rfonnancc  Paranic lf.r.->.  'I  he  two  performance  parameters, 
lower  bound  for  expected  flow  and  network  reliability,  were  calculated  for  Network 
A.  Using  the  (JA.Vl.S  .solver  and  Yiin's  ex])ected  flow  model,  an  expected  flow  of 
167  and  a  deterministic  max  flow  of  9600  (all  arc  survivabilities  ecpial  to  one)  were 
obtained  which  agrees  with  previous  vahu'.s  calculatr'd  by  Yim  and  (Jaught  using 
the  LP/.M1P-83  solver.  The  reliability  was  calculated  with  Page  and  Perry's  Dirprog 
program.  .A  ixdwork  ix’liability  value  of  .l-'rOI  was  obtained  in  .11  .seconds  using  a 
386  l)x  |)ersonal  computer.  It  rerpiired  44  rc'diictions  and  2  factorings.  Network 
A  was  readily  reducibh'  thus  allowing  an  ('fficient  calculation  if  its  reliability.  The 
reliability  value  of  .IbOl  agrees  with  that  obtained  by  Bailey's  simulation  program 
Ma.vfJo  (5). 
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Table  3.  Description  of  Arcs  in  Network  A 


Start 

Node 

Terminate 

Node 

Reliability 

Capacity 

1 

12 

1.0 

1200 

1 

13 

1.0 

1200 

1 

14 

1.0 

1200 

2 

5 

0.3 

1200 

2 

14 

0.6 

3 

9 

1.0 

1200 

3 

11 

1.0 

1200 

4 

14 

1.0 

1200 

5 

10 

0.6 

1200 

5 

11 

0.7 

1200 

6 

14 

0.6 

4800 

14 

0.6 

4800 

14 

0.3 

4800 

15 

1.0 

4800 

10 

15 

0.6 

4800 

11 

15 

1.0 

4800 

12 

15 

0.7 

4800 

13 

15 

1.0 

4800 

14 

17 

0.3 

4800 

14 

18 

0.6 

4800 

14 

19 

0.6 

4800 

mm 

() 

0.3 

4800 

19 

7 

0.6 

4800 

III 

8 

0.7 

4800 

17 

1() 

0.7 

4800 

18 

16 

0.6 

4800 

19 

16 

0.3 

4800 

l(i 


Table  4.  Description  of  Nodes  in  Network  A 


Reliability 

Capacity 

1 

2 

* 

3 

* 

4 

0.5 

5 

0.8 

X 

6 

1.0 

X 

0.3 

0.7 

0.5 

10 

0.8 

11 

1.0 

X 

12 

0.3 

X 

13 

0.7 

X 

14 

0.5 

X 

15 

0.8 

16 

0.8 

X 

17 

0.7 

X 

18 

0.3 

X 

19 

1.0 

>■ 

imp 

ics  capacity  is  infinite 

■Vi 


Figure  8.  Network  A 


7.1.S  Rf.liability  Improvement.  Given  the  initial  network  reliability  value,  the 
linear  heuristic  reliability  improvement  model  was  applied.  The  importance  index 
for  each  node  and  arc  arc  shown  in  Figures  7  and  8.  The  heuristic  model  invested 
in  arc  survivability  improvements  for  nodes  M  and  IG  'nitially  as  their  imijortance 
index  of  20. ■2.5  were  the  greatest.  The  next  candidate  was  node  l-b  with  an  index  of 
7.90.  followed  by  node  2  with  7..')7.  Next  were  several  arcs  with  an  index  of  6.7-5.  By 
examining  the  location  of  tlie  arcs,  only  one  path  between  node  15  and  16  and  again 
between  1 1  and  16  needed  itnproved.  Since  the  model  does  not  have  a  tie  breaker, 
it  would  impiwethem  in  numeric  order.  It  is  here  that  a  user  may  interject  a  tie 
breaker  by  adding  an  amount  to  the  preferred  arc  oi  arcs.  In  this  ca.se.  arcs  (11-19) 
and  (19-lG)  were  incn'ased  to  6.85  'J'his  ensured  after  iheii  investments,  a  perfect 
path  would  ('xist  with  a  resulting  network  reliability  of  1.0.  The  arc  improvements 
with  the  a.ssocialed  in'twork  reliabilities  are  listed  in  'lable  9.  It  is  noted  that  irn- 
l)rovements  in  arcs  or  nodes  located  before  node  1-1  had  no  affect  on  lh<’  network 
reliability  as  there  existed  a  perfect  path  from  the  source  to  node  bl  through  node 
OIK'.  'I  his  is  shown  where  investments  in  arcs  2  and  15  di<l  not  increa.se  the  network 
reliability. 
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Table  5.  Dependent  Arcs  in  Network  A 


Dependent  Pairs 

Terminate 

Start 

Terminate 

^9 

Node 

Node 

Node 

6 

14 

14 

7 

14 

14 

8 

14 

14 

17 

15 

6 

19 

16 

15 

7 

18 

16 

15 

8 

17 

16 

7.1.3  Combined  Capacity  and  SnrvivabHity  Improvements.  Finally  both  net¬ 
work  performance  parameters,  expected  flow  and  network  reliability  were  improved 
through  investments  in  arc  capacity  and  survivabilities.  Method  one,  Relmax,  as 
described  in  Chapter  V,  wa,s  applied  to  maximize  network  reliability  first,  then  max¬ 
imize  expected  flow  with  the  remaining  budget. 

Before  applying  the  models,  an  improvement  cost  for  both  capacity  and  surviv¬ 
ability  needed  to  be  decided  upon.  The  costs  were  selected  so  as  to  equalize  the  effect 
on  improving  the  effective  arc  capacities  given  an  equal  investment,  thus  eliminating 
any  cost  advantag('  of  one  ov('r  the  other.  First,  a  capacity  improvement  cost  of  1 
was  selected.  I’liis  resulted  in  a  cost  of  1200  to  double  the  arc’s  effective  capacity 
from  360  to  720  given  a  survivability  of  .3.  To  achieve  the  same  increa.se  in  effective 
capacity  through  sur\-ivability  improvements,  an  investment  of  .3  units  of  surviv¬ 
ability  was  required  Thus,  an  arc  survivability  cost  was  selected  to  be  400  which 
resulted  in  a  total  (ost  of  1200.  thesam<>a.s  the  capacity  investment.  In  addition,  arc 


'I'able  6.  Dependent  Nodes  in  .Network  .A 


Dependent  Pair.s 

Node 

Node 

6 

19 

7 

IS 

8 

17 

1.5 

16 

to 


Table  7.  Network  A  -  Node  Importance  Index 


Node 

Index 

1 

6.34 

2 

7.57 

3 

2.22 

4 

4.11 

5 

3.46 

6 

2.63 

7 

2.63 

8 

2.63 

9 

1.11 

10 

1.73 

11 

2.84 

12 

1.11 

13 

1.11 

14 

20.25 

15 

7.90 

16 

20.25 

17 

6.75 

18 

6.75 

19 

6.75 

capacity  improvements  were  limited  so  that  the  final  arc  capacities  were  less  than  or 
equal  to  4800  (tlie  maxiimim  arc  capacity  in  the  original  network).  Budgets  of  5.  10. 
and  15  thousand  were  then  used  for  the  subse(|uent  model  runs.,  Bach  run  varied  the 
amount  dedicated  to  ea'h  improvement  (survivability  or  capacity)  by  a  tenth  where 
the  left  side  of  the  curve  lenresented  all  the  budget  going  for  capacity  improveriK'nts 
and  none  for  survivability,  and  the  right  side  represented  all  the  budget  going  to 
survivability  improvements  and  none  to  capacity. 

Helmax  results  are  plotted  in  Figure  0.  F.xamining  this  jilot.  it  can  be  seen  t  hat 
a  budget  totally  devoted  to  capacity  increa.ses  does  not  increase  network  reliability 
and  the  snb.secpient  expe<  ted  flow  is  le.ss  than  that  which  can  be  achieved  with  a 
combination  of  capacity  and  survivability  improvements. 

The  second  nonlinear  model  was  applied  with  a  budget  of  8.000  which  was 
determined  to  be  the  minimum  amount  recpiired  to  have  a  network  reliability  of 
one.  .'\  program  was  written  to  ex-amine  all  paths  from  .source  to  sink  and  determine 
which  path  was  the  least  costly  to  improve  to  reach  a  network  nTiability  of  one. 
I'br  network  .A.  this  path  consisted  of  nodes  (l-M  lO-IO)  with  a  cost  of  8000.  The 


Table  8.  Network  A  -  Arc  Importance  Index 


Start 

Node 

Terminate 

Node 

Index 

1 

1.11 

1 

1.11 

1 

M 

4.11 

2 

14 

4.11 

2 

5 

3.46 

3 

11 

1.11 

3 

9 

1.11 

•1 

14 

4.11 

10 

1.73 

11 

1.73 

14 

2.63 

14 

2.63 

8 

14 

2.63 

9 

15 

1.11 

10 

15 

1.73 

11 

15 

2.84 

12 

15 

1.11 

13 

15 

1.11 

14 

19 

6.75 

14 

18 

6.75 

14 

17 

6.75 

ir, 

(5 

2.63 

IT) 

7 

2.63 

15 

8 

2.63 

17 

t)  To 

17 

().75 

18 

6.75 

19 

6.75 

Table  1).  Network  A  Reliability  Improvements 


■MWBl 

Arc 

Inrri'jtse 

Reliabiliiv 

11 

.5 

.300 

li: 

2 

.376 

15 

2 

.376 

2 

2 

.376 

i!»-i(; 

1 

.6956 

1 1-1'.) 

t 

1.00 

2-100 

2200 

2000 

Flow 

1800 

1(500 


0 


ma.xiiniim  fxprctpd  flow  was  then  cfilculalccl  using  the  improved  path  above,  witii 
a  result  of  2170.  Ke.xt.  llie  nonlinear  model  wa.s  run  to  ma.ximize  the  expected  flow 
through  both  arc  survivability  and  capacity  improvements,  limited  by  a  budget  of 
8000.  'he  resulting  flow  was  211-5  with  a  reliability  of  .78.  Thus,  the  effici<'nt  frontier 
is  bounded  as  shown  in  Figure  10.. 

For  budgets  le.ss  than  that  rerpiired  to  reach  a  network  reliability  of  one.  the 
lrad<’<>ir  point  can  still  be  calculated  using  the  nonlinear  mu<lel.  Tin'  upj>er  reliability 
bound  for  tin-  efficient  fronti«-r  however  is  in  itself,  now  a  lower  bound  as  tl>ere  are 
several  «lifferent  arc  survivability  configurations  that  could  be  u.seil  to  ma.ximize  the 
reliability  ancl  expected  flow.  .-\  lower  bound  for  this  value  <‘an  be  calcijlate<i  by  using 
the  least  cost  path  determined  above  and  decrea.sing  the  ar<'  survival>ilitie.s  to  a  point 
that  the  budg(‘t  will  |)rovide  the  remaining  survivability  incieases.  i'his  reliability 
valiH*  is  then  used  to  maximize  the  associated  expect e«l  flow.  Ftw  Network  A.  a 
budget  of  (iSOO  profluces  a  trafleoff  }:oint  at  (..)8.:}7-f5)  with  a  maximum  reliability 
obtained  at  (.77.21-51)  a.s  sIhavii  in  Figure  10. 
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BUDGET 

8000  O 
(5800  -F 


O 


0.(5 


0.7  0.8 

Keliabilitv 
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Figure  10.  Network  A  Efficient  Frontier 


1.2  Network  B 


Network  B  is  shown  in  figure  11.  It  consists  of  26  nodes  and  37  arcs.  Tables  10 
and  11  list  the  capacity  and  survivability  values  of  the  arc  and  nodes.  The  network 
contains  187  paths  from  the  artificially  added  source  to  sink. 


Figure  11.  Network  B 


7.2.1  Original  Ftrfoi  munce  Parameter.--.  As  with  network  A.  the  two  per¬ 
formance  j)aiame'eis,  lower  bound  for  expected  flow  and  netwoik  reliability,  were 
calculated.  .An  expected  flow  of  .344  and  a  deterministic  flow  of  3!)fl()  were  obtained 
which  agreed  with  previous  values  calculated  by  Yirn  (23:82).  1  he  reliability  was 
computed  using  Dtrprog.  producing  a  result  of  .6011.  The  computation  took  -58  sec- 


Table  10.  Description  of  Arcs  in  Network  B 


Terminate 

Node 

Reliability 

Capacity 

1 

7 

0.8 

150 

1 

S 

0.8 

200 

2 

8 

0.5 

750 

2 

9 

0.5 

750 

3 

7 

0.8 

200 

3 

9 

0.5 

750 

3 

16 

0.6 

150 

4 

16 

0.8 

200 

4 

24 

0.5 

600 

5 

14 

0.8 

1200 

6 

16 

0.5 

1200 

6 

25 

0.6 

75 

6 

26 

0.6 

75 

7 

10 

0.5 

1200 

8 

10 

0.7 

1200 

9 

10 

0.5 

2400 

10 

11 

0.5 

1200 

10 

12 

0.7 

1200 

10 

13 

0.7 

1200 

11 

17 

0.5 

1200 

11 

18 

0.5 

75 

11 

19 

0.5 

1200 

12 

16 

0.7 

1200 

12 

20 

0.5 

1200 

13 

16 

0.7 

600 

14 

15 

0.8 

1200 

15 

16 

0.8 

1200 

16 

17 

0.6 

75 

16 

18 

0.6 

75 

16 

19 

0.6 

75 

16 

20 

0.6 

75 

16 

21 

0.6 

75 

16 

22 

0.6 

75 

16 

23 

0.6 

75 

16 

21 

0.6 

75 

16 

25 

0.6 

75 

16 

26 

0.6 

75 

Table  11.  Description  of  Nodes  in  Network  B 


Node 

Reliability 

Capacity 

1 

0.70 

* 

2 

0.15 

* 

3 

0.03 

4 

1.00 

* 

5 

1.00 

* 

6 

0.04 

* 

7 

0.40 

8 

1.00 

* 

9 

0.01 

10 

0.70 

11 

0.11 

* 

12 

1.00 

13 

0.06 

* 

14 

0.09 

15 

0.18 

* 

16 

0.07 

17 

1.00 

.K 

IS 

1.00 

¥ 

19 

1.00 

>• 

20 

1.00 

21 

1.00 

22 

1.00 

23 

1.00 

>■ 

21 

1.00 

Y 

25 

1.00 

26 

1.00 

x 

imp 

ies  capacity 

s  infinite 

oncls  on  a  386  Dx  personal  computer,  with  7,422  reductions  and  3,128  factorings 
required. 

Reliability  Improvements.  The  linear  heuristic  model  for  reliability  im¬ 
provement  was  applied  to  Network  B  with  the  node  and  arc  important  indices  listed 
in  Tables  13  and  14.  It  should  be  noted  that  nodes  4,5,8,  and  12  were  not  included 
as  their  survivability  was  already  one,  thus  were  not  candidates  for  survivability  im¬ 
provement.  Arc  (4-24)  had  the  highest  important  index  of  111.11.  An  improvement 
of  this  arc  from  .5  to  1.0  provides  for  a  perfectly  reliable  path  from  source  to  sink 
and  thus  a  network  reliability  of  1.0.  The  linear  heuristic  model  successfully  selected 
the  arc  that  improves  the  network  reliability  for  the  least  cost.  If  network  reliability 
improvement  was  desired  through  another  path,  then  node  16  should  be  improved 
as  its  index  is  95.41.  From  figure  14,  it  is  seen  that  a  majority  of  the  paths  go 
through  node  16.  A  listing  of  reliability  improvements  of  arc  (4-24)  by  tenths  with 
the  resulting  network  reliability  is  listed  in  Table  12. 


Table  12.  Arc  (4-24)  Survivability  Improvements 


.Arc 

Iini)iovement 

.Arc 

.Survivability 

Network 

Reliability 

0 

.5 

.6011 

.1 

.6 

.6809 

.2 

.7 

.7607 

.3 

.8 

.8404 

.4 

.9 

.9202 

.5 

1.0 

I.O 

7.S.3  Capanlij  (iiul  Siirrlrabilily  Iniprovi minis.  .As  in  Network  .A.  the  meth¬ 
ods.  Relmax  and  Flomax.  wereairplied  to  Network  B.  Uelmax  maximized  reliability 
with  a  portion  of  the  total  budget  and  the  remaining  budget  was  u.sed  to  maximize 
expected  flow  through  capacity  improvements.  I'he  results  are  listed  in  'fable  15  and 
shown  in  figure  12., 

Flomax  was  applied  to  Network  B  for  a  biidgcM  of  2000  which  allows  a  network 
n'liabilily  of  one  to  l)e  aclfunx’d  and  a  budget  of  1200  which  allows  for  a  maximum 


Table  13. 


iS 


Table  14.  Network  B  -  Arc  Importance  Index 


Table  15.  Network  B  Combined  Improvements 


.Survivability 

Budget 

Capacity 

Budget 

Network 

Reliability 

Expected 

Flow 

0 

6011 

1261 

400 

■  ■ 

.6809 

1363 

800 

.7607 

1303 

1200 

800 

.8404 

1163 

1600 

400 

.9202 

943 

2000 

0 

1.0 

643 

network  reliability  of  84.  Again  the  efficient  frontier  was  bounded  for  each  bud¬ 
get  between  the  maximum  expected  flow  achievable  and  the  maximum  reliability 
achieved.  The  results  are  shown  in  Figure  1-3. 
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Flow 
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Figure  13.  .Network  H  Fflicif'iit  Frontier 


7..)’  .\'(lirnrl:  (' 

NN'Iwork  ('  was  iiK  luderl  l.o  illustrate  the  limitations  of  tlie  n-liability  program 
Dirpro;/.  Not  work  ('  consists  of  3!1  nodes  and  -51  arcs  with  l!)8  paths,  niijiroti  is 


(.0 


Figure  M.  Network  C 


liinitcfl  to  flu*  size  of  the  network  evaluated  by  a  6-lK  stack  limit  nndei  MS-DOS. 
.Network  ('  would  not  lun  under  the  Turbo  Pascal  Version  of  Dirpro/j.  .Modifications 
w<'re  made  to  convert  the  Turbo  Pascal  Version  to  an  .ANSI  Pascal  version  and 
was  run  on  a  DEC  S-ToO  inainfraine  o|)eraling  under  the  V.MS  environment.  'I'he 
program  was  validated  by  running  Networks  .A  an<i  B  with  the  same  results.  .A 
relial/dity  value  of  .(iboT  was  obtained  in  around  1  minutes.  'I'he  cah  ulation  recjiiired 
102.0f)2  reductions  and  T2.2.W  factorings. 


()l 


Table  16.  Description  of  Arcs  in  Network  C 


Arc 

Arc 

Init 

Node 

Term 

Node 

Survival 

Prob 

Capacity 

Init 

Node 

Term 

Node 

Survival 

Prob 

Capacity 

11 

0.9 

1200 

13 

25 

0.7 

2400 

11 

1.0 

1200 

13 

26 

0.9 

1200 

7 

1.0 

300 

13 

27 

1.0 

1200 

4 

11 

0.6 

1200 

13 

28 

1.0 

1200 

5 

8 

0.3 

1200 

13 

29 

0.3 

1200 

6 

9 

0.6 

1200 

14 

23 

0.6 

4800 

7 

10 

1.0 

300 

14 

24 

0.3 

4800 

8 

11 

0.9 

1200 

14 

25 

0.6 

2400 

9 

11 

1.0 

1200 

14 

26 

0.7 

1200 

10 

11 

0.7 

300 

14 

27 

0.9 

1200 

11 

12 

0.9 

9600 

14 

28 

1.0 

1200 

n 

23 

0.6 

75 

14 

29 

1.0 

1200 

11 

24 

0.3 

75 

15 

31 

0.6 

2400 

11 

38 

0.6 

1200 

15 

32 

0.3 

1200 

11 

39 

0.7 

1200 

16 

30 

0.6 

300 

12 

13 

1.0 

4800 

16 

31 

0.7 

2400 

12 

14 

1.0 

4800 

16 

32 

0..9 

1200 

12 

15 

0.6 

4800 

16 

33 

1.0 

300 

12 

16 

0.3 

1800 

16 

36 

1.0 

2400 

12 

17 

0.6 

1800 

17 

30 

0.6 

1200 

12 

18 

0.7 

2100 

17 

33 

0.3 

300 

12 

19 

0.9 

1800 

17 

34 

0.6 

300 

12 

20 

1.0 

4800 

18 

38 

0.7 

1200 

12 

21 

1.0 

4800 

19 

39 

0.9 

1200 

12 

22 

0.6 

2400 

20 

35 

1.0 

2400 

13 

23 

0.3 

1800 

21 

36 

1.0 

2400 

13 

24 

0.6 

4800 

22 

37 

0.6 

600 

Table  17.  Description  of  Nodes  in  Network  C 


Survival 

Survival 

Node 

Probability 

Capacity 

Node 

Probability 

Capacity 

1 

0.3 

* 

21 

0.3 

* 

2 

0.7 

* 

22 

0.7 

* 

3 

0.5 

* 

23 

0.5 

* 

4 

0.8 

* 

24 

0.8 

5 

1.0 

25 

1.0 

¥ 

6 

0.3 

* 

26 

0.3 

7 

0.7 

27 

0.7 

* 

8 

0.5 

* 

28 

0.5 

9 

0.8 

* 

29 

0.8 

* 

10 

1.0 

¥ 

30 

1.0 

¥ 

11 

0.7 

31 

0.3 

ifi 

12 

0.7 

* 

32 

0.7 

X 

13 

0.5 

33 

0.5 

1 1 

0.8 

* 

31 

0.8 

X 

15 

1.0 

jfc 

35 

1.0 

* 

16 

0.3 

X 

36 

0.3 

X 

17 

0.7 

X 

37 

0.7 

r 

18 

0.5 

38 

0.5 

A 

19 

0.5 

39 

0.5 

X 

20 

1.0 

* 

X 

"  inipl 

ir.s  capacity  is 

infinite 

1.^  Slim  mart; 

The  exact  reliability  values  for  the  th^ee  networks,  A,  B,  and  C,  were  suc¬ 
cessfully  calculated  with  a  computational  time  recjuired  on  the  order  of  seconds  to 
minutes.  On  the  other  hand,  previous  work  done  b}'  Bailey  using  a  simulation  ap¬ 
proach  was  only  successful  in  computing  a  relaibility  value  for  Network  A.  and  even 
then,  reciuired  on  the  order  of  hours  to  compute.  The  factoring  program  has  thus 
significantly  reduced  the  computational  times  recjuired  to  calculate  the  reliability 
of  large  stochastic  networks  and  even  more,  provides  a  reliability  measurement  tool 
where  previous  simulation  methodologies  failed. 


(>1 


VIII.  Conclusions  and  Recommendations 


This  researcii  had  three  objectives  to  accomplish: 

1 .  Develop  a  methodology  to  measure  the  network  performance  parameter,  relia¬ 
bility,  for  large  stochastic  networks. 

2.  Develop  a  reliability  improvement  strategy. 

3.  Examine  the  trade-offs  between  the  two  criterion  objectives,  network  expected 
flow  and  network  reliability. 

The  following  sections  will  discuss  the  conclusions  arrived  upon  for  each  ob¬ 
jective. 


8.1  Reliability  Mcasvrement 

Several  techniques  were  examined  in  Chapter  V  for  measuring  the  reliability  of 
stochastic  networks.  It  was  determined  that  a  recursive  technique  using  reductions 
and  factorings  was  the  most  appropriate.  A  program  written  by  Page  and  Perry  (18) 
was  used  to  nu'asure  the  exact  vahu'  for  three  large  networks.  Networks  and  B. 
demonstrated  the  effi«  iency  of  the  prograni  Dirproglo  calculate  the  exact  reliability 
value  in  a  length  of  time  short  enough  (seconds  to  a  few  minutes)  to  facilitate  interac¬ 
tive  uses.  Dii'proy  used  in  conjunction  with  T/.V/l,  Forwula.  and  Convert  provided  a 
system  to  graphically  input  a  network,  convert  it  into  the  appropriate  input  format, 
and  measure  the  exact  reliability  value.  'Phis  system  readily  lends  it. self  to  what- 
if  type  .scenarios.  .Network  (’  retpiired  solving  on  the  Dl'X'  8550  mainframe,  thus 
demonstrating  th<'  network  size  limitations  of  Dirprognnder  the  M.S  DOS  operating 
system. 

8.2  Rdiubilitg  Improvf  nu  nt 

Since  the  above  reliability  mea.snrement  procedure  did  not  generate  a  math¬ 
ematical  expre.ssion  for  network  reliability,  a  heuristic  was  u.sed  to  determine  the 
ranking  of  arcs  for  survival)ility  improvements.  The  foundations  of  the  heuristic 
are  easily  undeistood.  thus  lending  credibility  when  pre.sented  to  a  decision  maker. 


The  heuristic  was  incorporated  into  a  linear  model  using  the  GAMS  solver.  The 
model  was  then  applied  to  Networks  A  and  B  with  promising  results.  It  selected 
the  optimum  improvement  path  for  Network  B,  though  for  Network  .4  selected  some 
arcs  in  where  no  improvement  in  network  reliability  was  made.  The  heuiTstic  seems 
most  appropriate  for  reliability  imj^rovements  where  only  a  small  number  of  are.s 
are  improved,  increasing  the  overall  network  reliability,  but  not  providing  a  perfect 
source  to  sink  path  and  a  network  reliability  of  1.0.  The  method  has  the  advantages 
of  being  computationally  bounded  by  the  number  of  arcs  in  the  network,  and  not 
the  number  of  states,  thus  can  be  applied  to  very  large  networks.  The  importance 
indices  generated  can  also  be  examined  and  manipulated  to  incorporate  a  derision 
makers  requirements  or  preferences  in  arc  selection  for  survivability  improvements. 

S.3  Tradc-off  Anuhjiris 

While  the  preferred  ap|)roach  to  trade-off  analysis  was  a  multicriteria  optimiza¬ 
tion  technique,  lacking  a  criterion  objective  function  for  large  networks  limited  the 
researcher  to  other  methodologies.  The  first  method  of  maximizing  reliability  with 
a  portion  of  the  budget,  then  applying  the  remainder  to  capacity  improvements  is 
useful  in  evaluating  the  proportion  of  the  available  budget  to  each  given  the  desired 
expected  flow  and  reliability.  The  second  nonlinear  nndhod  botmds  the  efficient  fron¬ 
tier  between  the  point  representing  the  maximum  expected  flow  obtainable  and  th<‘ 
maximum  reliability  point  obtainable  within  the  i>ii<lget.  'I  bis  t<‘clmic|iie  is  iisef.d 
in  rletermining  the  tradeoff  region.  In  addition,  the  two  bounding  |)v)inls  locale  the 
maximum  values  of  the  two  criteria  attainable,  and  thus  form  the  ideal  point.  If  the 
desired  peiformance  |)arameters  lie  below  this  region  then  further  tradeedf  analysis 
is  not  re(|nired  ami  the  optimum  arc  investments  can  be  obtained  by  using  the  non 
linear  model  to  maximize  I  he  expected  flow  using  both  survivalrility  ami  cajiacity.  If 
the  (h'.sired  performance  lies  within  the  bounds  of  the  efficient  front i('r.  furtlu'r  anal 
ysis  may  b(‘  rerinired  to  identify  the  efficient  solutions  iKnnnh’d  within  the  triangle 
formed  by  the  two  bounding  points  and  the  ideal.  The  feasibh' solution  spa<e  beUm’ 
the  l)oumh'fl  rc'gion  though,  is  dominated  by  the  eflicieiit  frontier  and  thus  can  Ix' 
eliminai.eel  from  further  consideration,  thus  greatly  flecreasiu”  the  region  of  furlhei 
analysis. 


(it) 


8.4  Recommendations 


The  following  recommendations  are  made  in  furthering  the  research  of  improv¬ 
ing  the  performance  of  stochastic  networks: 

1.  Writing  the  program  Dirprog  'm  an  artificial  intelligence  language  such  as  PRO¬ 
LOG,  which  has  an  inherent,  built-in  recursive  structure  should  be  investigated. 
This  may  result  in  a  reduction  of  the  computational  times  required  to  calculate 
the  reliability  of  large  networks  . 

2.  The  reliability  improvement  heuristic  should  I)e  applied  to  even  larger  net¬ 
works  and  its  performance  analyzed.  In  ad<lition.  tie  breaker  rules  should  be 
implemented  into  the  improvement  model. 

3.  Further  research  in  generating  a  usable  mathematical  expression  for  network 
reliability  is  needed  to  enable  the  use  of  multicriteria  optimization  in  generating 
the  efficient  frontier.  This  then  would  allow  the  incorporation  of  the  decision 
makers  preference  function  in  selecting  an  optimum  investment  strategy. 

1.  Developing  a  .single  mathematical  model  integrating  both  bounding  end  points 
in  place  of  the  seperate  procedures  used  by  I'K)max  will  aide  in  resolving  the 
gap  between  itself  and  MGO. 

•5.  Further  re.search  is  m.'<*ded  into  the  iinproveiinuit  ru.'l  functions  to  include  non¬ 
linear  cost  functions  and  iIh'  affects  of  cost  (lilfereini's  b<‘tween  the  t  \o  type*; 
of  imi)rovements.  capacity  or  survivability,  on  the  tracle-off  or  efficient  frontier 
region.. 

6.  While  this  research  a.s.sumes  independence  l.'etween  the  arc  ‘survivabilities,  in 
'.estigations  into  models  that  tak<’  into  account  dei)endet't  arc  survivabilities 
may  better  reflect  real  world  conditions. 

8.0  8tinimary 

Measuring  and  improving  the  |)erfonnance.  both  throughput  and  reliability, 
of  large  stochastic  lu’t works  is  de;  Mable  to  ensure  ade(|nate  capabilities  ar<‘  incorpo 
rated  into  communication  network  during  tinu-s  of  crisis,  f  he  evervflay  reliance  on 
complex  communication  network^-  by  DO!)  diMuaiKls  that  the  pei formanct"  of  lhes<- 
networks  nn'et  operational  nee<ls  <luring  adverse  conditions.  Fsing  the  methodologies 
formulated  iu  this  ix'search.  the  performance  paraineiers  of  both  expected  (low  and 


reliability  can  be  measured  and  subsequent  improvements  made  providing  insight 
into  the  operational  capabalities  of  stochastic  communication  networks. 


Appendix  A.  Converted  Networks 
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Figure  16.  Network  A  -  Converted 


Figure  17.  Network  B  -  Converted 


Appendix  B.  Network  A  GAMS  Files 


B.l  Linear  Heuristic  Reliability  Improvement  Model 


$OFFSYMXREF  OFFSYMLIST 
SETS 

1  arcs  /I  ♦  51/ ; 
PARAMETERS 

R(I)  arc  reliability  index 

/ 


1 

6. 

3374 

2 

7. 

5754 

3 

2. 

2222 

4 

4. 

1152 

S 

3. 

4602 

6 

2. 

6349 

7 

2. 

.6349 

8 

2. 

6349 

9 

1, 

,1111 

10 

1, 

,7301 

11 

2. 

,8412 

12 

1. 

.1111 

13 

1, 

,1111 

14 

20 

.2503 

15 

7, 

.9047 

16 

20 

.2503 

17 

6 

.7501 

18 

6 

.7501 

19 

6 

.7501 

20 

4 

.1152 

21 

7 

.5754 

22 

2 

.2222 

23 

6 

.3374 

24 

4 

.1152 

25 

4 

.1152 

26 

3 

.4602 

27 

1 

.1111 

28 

1 

.1111 

29 

1 

.1113 

30 

1 

.1111 

31 

4 

.1152 

32 

1 

.7301 

7'1 


33  1.7301 

34  1.1111 

35  1.1111 

36  1.1111 

37  1.7301 

38  2.8412 

39  2.6349 

40  2.6349 

41  2.6349 

42  2.634^ 

43  2 . 6349 

44  2 . 6349 

45  6.7501 

46  6.7501 

47  6.7501 

48  6.7501 

49  6.7501 

50  6.7501 

51  20.2503 

/ 


P(I)  arc  probabilities 

/ 

1  1.00 

2  0.30 

3  0.70 

4  0.50 

5  0.80 
1.00 

7  0.30 

8  0.70 

9  0.50 
10  0.80 
11  1.00 

12  0.30 

13  0.70 

14  0.50 

15  0.80 

16  0.80 

17  0.70 

18  0.30 

19  1.00 

20  1.00 
21  1.00 
22  1.00 

23  1.00 

24  1.00 

25  0.60 

26  0.30 


27  1.00 

28  1.00 

29  1.00 

30  1.00 

31  1.00 

32  0.60 

33  0.70 

34  1.00 

35  0.70 

36  1.00 

37  0.60 

38  1.00 

39  0.30 

40  0.60 

41  0.70 

42  0.60 

43  0.60 

44  0.30 

45  0.60 

46  0.60 

47  0.30 

48  0.30 

49  0.60 
60  0.70 
51  1.00 

/; 


SCALAR  C  cost  of  increasing  arc  rel  by  .1  /  400  /; 

SCALAR  B  total  budget  available  /  8000  / ; 

VARIABLES 

X(I)  .1  arc  rel  increase 
Z  objective  for  rel  index  ; 

POSITIVE  VARIABLE  X; 

EQUATIONS 

MAXINDEX 

REL(I) 

BUDGET  : 

MAXINDEX  ..  Z  =E=  SUM(I,  R(I)*(p(I)+X{I)))  ; 

REL(I)  ..  P(I)+(.1*X(I))  =L=  1  : 

BUDGET  ..  SUH(I,  C*X(I))  =L=  B  ; 

MODEL  RELHUER  /ALL/  ; 

OPTION  LIMROW  =  0 

SOLVE  RELHUER  USING  LP  MAXIMIZING  Z  ; 


7(i 


DISPLAY  X.L  : 


B.2  Linear  Capacity  Improvement  Model 


$OFFSYMXREF  OFFSYMLIST 
SETS 

I  arcs  /I  *  51/ 

J  paths  /I  *  63/; 

PARAMETERS 


U(l)  arc  capacities 

/ 

1  0 
2  0 

3  0 

4  0 

5  0 

6  0 

7  0 

8  0 

9  0 

10  0 
11  0 
12  0 

13  0 

14  0 

15  0 

16  0 

17  0 

18  0 

19  0 

20  0 
21  0 
22  0 

23  0 

24  1200 

25  1200 

26  1200 

27  1200 

28  1200 

29  1200 

30  1200 

31  1200 

32  1200 

33  1200 
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34  4800 

35  4800 

36  4800 

37  4800 

38  4800 

39  4800 

40  4800 

41  4800 

42  4800 

43  4no 

44  4800 

45  4800 

46  4800 

47  4800 

48  4800 

49  4800 

50  4800 

51  0 

/ 


P(I)  arc  probabilities 

/ 

1  1.00 

2  0.30 

3  0.70 

4  0.50 

5  0.80 

6  1.00 

7  0.30 

8  0.70 

9  0.50 
10  0.80 
11  1.00 

12  0.30 

13  0.70 

14  0.50 

15  0.80 

16  0.80 

17  0.70 

18  0.30 

19  1.00 

20  1.00 
21  1.00 
22  1.00 

23  1.00 

24  1.00 

25  0.60 

26  0.30 

27  I. 00 

28  1.00 
29  1.00 


30  1.00 

31  1.00 

32  0.60 

33  0.70 

34  1.00 

35  0.70 

36  1.00 

37  0.60 

38  1.00 

39  0.30 

40  0.60 

41  0.70 

42  0.60 

43  0.60 

44  0.30 

45  0.60 

46  0.60 

47  0.30 

48  0.30 

49  0.60 

50  0.70 

51  1.00 

/ 

A(I,J)  arc-path  matrix 

/ 

1.43  1 

1.44  1 

1.45  1 

1.46  1 

1.47  1 

1.48  1 

1.49  1 

1.50  1 

1.51  1 

1.52  1 

1.53  1 

1.54  1 

1.55  1 

1.56  1 

1.57  1 

1.58  1 

1.59  1 

1.60  1 

1.61  1 

1.62  1 

1.63  1 

2.4  1 

2.5  1 

2.6  1 
2.7  1 


SO 


2.8  1 

2.9  1 

2.10  1 

2.11  1 

2.12  i 

2.13  1 

2.14  1 

2.15  1 

2.16  1 

2.17  1 

2.18  1 

2.19  1 

2.20  1 

2.21  1 

2.22  1 

2.23  1 

2.24  1 

3.25  1 

3.26  1 

3.27  1 

3.28  1 

3.29  1 

3.30  1 

3.31  1 

3.32  1 

3.33  1 

3.34  1 

3.35  1 

3.36  1 

3.37  1 

3.38  1 

3.39  1 

3.40  1 

3.41  1 

3.42  1 

4.1  1 

4.2  1 

4.3  1 

5.7  1 

6.8  1 

5.9  1 

5.10  1 

6.11  1 

5.12  1 

5.13  1 

5.14  1 

5.15  1 

5.16  1 

5.17  1 
5.13  1 

6.19  1 


SI 


5.20  1 

5.21  1 

5.22  1 

5.23  1 

5.24  1 

6.7  1 

6.8  1 

6.9  1 

6.16  1 

6.17  1 

6.18  1 

6.25  1 

6.26  1 

6.27  1 
6.34  1 

6.36  1 

6.36  1 

6.43  1 

6.44  1 

6.45  1 

6.52  1 

6.53  1 

6.54  1 

7.10  1 

7.11  1 

7.12  1 

7.19  1 

7.20  1 

7.21  1 

7.28  1 

7.29  1 

7.30  1 

7.37  1 

7.38  1 

7.39  1 

7.46  1 

7.47  1 

7.48  1 

7.55  1 

7.56  1 

7.57  1 

8.13  1 

8.14  1 

8.15  1 

8.22  1 

8.23  1 

8.24  1 

8.31  1 

8.32  1 

8.33  1 

8.40  1 


.J 


8.41  1 

8.42  1 

8.49  1 

8.50  1 

8.51  1 

8.58  1 

8.59  1 

8.60  1 

9.34  1 

9.35  1 

9.36  1 

9.37  1 

9.38  1 

9.39  1 

9.40  1 

9.41  1 

9.42  1 
1C. 7  1 

10.8  1 

10.9  1 

10.10  1 

10.11  1 

10.12  1 

10.13  1 

10.14  1 

10.15  1 

11.16  1 

11.17  1 

11.18  1 

11.19  1 

11.20  1 

11.21  1 

11.22  1 

11.23  1 

11.24  1 

11.25  1 

11.26  1 

11.27  1 

11.28  1 

11.29  1 

11.30  1 

11.31  1 

11.32  1 

11.33  1 

12.43  1 

12.44  1 

12.45  1 

12.46  1 

12.47  1 

12.48  1 

12.49  1 


8;{ 


12.50  1 

12.51  1 

13.52  1 

13.53  1 

13.54  1 

13.55  1 

13.56  1 

13.57  1 

13.58  1 

13.59  1 

13.60  1 

14.1  1 

14.2  1 

14.3  1 

14.4  1 

14.5  1 

14.6  1 

14.7  1 

14.8  1 

14.9  1 

14.10  1 

14.11  1 

14.12  1 

14.13  1 

14.14  1 

14.15  1 

14.16  1 

14.17  1 

14.18  1 

14.19  1 

14.20  1 

14.21  1 

14.22  1 

14.23  1 

14.24  1 

14.25  1 

14.26  1 

14.27  1 

14.28  1 

14.29  1 

14.30  1 

14.31  1 

14.32  1 

14.33  1 

14.34  1 

14.35  1 

14.36  1 

14.37  1 

14.38  1 

14.39  1 

14.40  1 


8-1 


■ri 


14.41  1 

14.42  1 

14.43  1 

14.44  1 

14.45  1 

14.46  1 

14.47  1 

14.48  1 

14.49  1 

14.50  1 

14.51  1 

14.52  1 

14.53  1 

14.54  1 

14.55  1 

14.56  1 

14.57  1 

14.58  1 

14.59  1 

14.60  1 

14.61  1 

14.62  1 

14.63  1 

15.7  1 

15.8  1 

15.9  1 

15.10  1 

15.11  1 

15.12  1 

15.13  1 

15.14  1 

15.15  1 

15.16  1 

15.17  1 

15.18  1 

15.19  1 

15.20  1 

15.21  1 
1.':.22  1 

15.23  1 

16.24  1 

15.25  1 

15.26  1 

15.27  1 

15.28  1 

15.29  1 

15.30  1 

15.31  1 

15.32  1 

15.33  1 

15.34  1 


8.') 


15.35  1 

15.36  1 

15.37  1 

15.38  1 

15.39  1 

15.40  1 

15.41  1 

15.42  1 

15.43  1 

15.44  1 

15.45  1 

15.46  1 

15.47  1 

15.48  1 

15.49  1 

15.50  1 

15.51  1 

15.52  1 

15.53  1 

15.54  1 

15.55  1 

15.56  1 

15.57  1 

15.58  1 

15.59  1 

15.60  1 

16.1  1 

16.2  1 

16.3  1 

16.4  1 

16.5  1 

16.6  1 

16.7  1 

16.8  1 

16.9  1 

16.10  1 

16.11  1 

16.12  1 

16.13  1 

16.14  1 

16.15  1 

16.16  1 

16.17  1 

16.18  1 

16.19  1 

16.20  1 

16.21  1 

16.22  1 

16.23  1 

16.24  1 

16.25  1 


8G 


16.26  1 

16.27  1 

16.28  1 

16.29  1 

16.30  1 

16.31  1 

16.32  1 

16.33  1 

16.34  1 

16.35  1 

16.36  1 

16.37  1 

16.38  1 

16.39  1 

16.40  1 

16.41  1 

16.42  1 

16.43  1 

16.44  1 

16.45  1 

16.46  1 

16.47  1 

16.48  1 

16.49  1 

16.60  1 

16.51  1 

16.52  1 

16.53  1 

16.54  1 

16.55  1 

16.56  1 

16.57  1 

16.58  1 

16.59  1 

16.60  1 

16.61  1 

16.62  1 

16.63  1 
17.3  1 
17.6  1 
17.9  1 
17.12  1 
17.15  1 
17.18  1 
17.21  1 
17.24  1 
17.27  1 
17.30  1 
17.33  1 
17.36  1 
17.39  1 


17.42  1 

17.45  1 

17.48  1 

17.51  1 

17.54  1 

17.57  1 

17.60  1 
17.63  1 
18.2  1 
18.5  1 
18.8  1 
18.11  1 
18.14  1 
18.17  1 
18.20  1 
18.23  1 
18.26  1 
18.29  1 
18.32  1 
18.35  i 
18.38  1 
18.41  1 
18.44  1 
18.47  1 
18.50  1 
18.53  1 
18.56  1 
18.59  1 
18.62  1 

19.1  1 
19.4  1 
19.7  1 
19.10  1 
19.13  1 
19.16  1 
19.19  1 
19.22  1 
19.25  1 
19.28  1 
19.31  1 
19.34  1 
19.37  1 
19.40  1 

19.43  1 

19.46  1 

19.49  1 

19.52  1 

19.55  1 

19.58  1 

19.61  1 

20.1  1 


.SS 


23.53  1 

23.54  1 

23.55  1 

23.56  1 

23.57  1 

23.58  1 

23.59  1 

23.60  1 

23.61  1 

23.62  1 

23.63  1 

24.1  1 

24.2  1 

24.3  1 

25.4  1 

25.5  1 

25.6  1 

26.7  1 

26.8  1 

26.9  1 

26.10  1 

26.11  1 

26.12  1 

26.13  1 

26.14  1 

26.15  1 

26.16  1 

26.17  1 

26.18  1 

26.19  1 

26.20  1 

26.21  1 

26.22  1 

26.23  1 

26.24  1 

27.25  1 

27.26  1 

27.27  1 

27.28  1 

27.29  1 

27.30  1 

27.31  1 

27.32  1 

27.33  1 

28.34  1 

28.35  1 

28.36  1 

28.37  1 

28.38  1 

28.39  1 

28.40  1 


!)() 


28.41  1 

28.42  1 

29.43  1 

29.44  1 

29.45  1 

29.46  1 

29.47  1 

29.48  1 

29.49  1 

29.50  1 

29.51  1 

30.52  1 

30.53  1 

30.54  1 

30.55  1 

30.56  1 

30.57  1 

30.58  1 

30.59  1 

30.60  1 

31.61  1 

31.62  1 

31.63  1 

32.7  1 

32.8  1 

32.9  1 

32.10  1 

32.11  1 

32.12  1 

32.13  1 

32.14  1 

32.15  i 

33.16  1 

33.17  1 

33.18  1 

33.19  1 

33.20  1 

33.21  1 

33.22  1 

33.23  1 

33.24  1 

34.34  1 

34.35  1 

34.36  1 

34.37  1 

34.38  1 

34.39  1 

34.40  1 

34.41  1 

34.42  1 

35.43  1 


!)I 


36.44  1 

35.45  1 

35.46  1 

35.47  1 

35.48  1 

35.49  1 

35.50  1 

35.51  1 

36.52  1 

36.53  1 

36.54  1 

36.55  1 

36.56  1 

36.57  1 

36.58  1 

36.59  1 

36.60  1 

37.7  1 

37.8  1 

37.9  1 

37.10  1 

37.11  1 

37.12  1 

37.13  1 

37.14  1 

37.15  1 

38.16  1 

38.17  1 

38.18  1 

38.19  1 

38.20  1 

38.21  1 

38.22  1 

38.23  1 

38.24  1 

38.25  1 

38.26  1 

38.27  1 

38.28  1 

38.29  1 

38.30  1 

38.31  1 

38.32  1 

38.33  1 

39.7  1 

39.8  1 

39.9  1 

39.16  1 

39.17  1 

39.18  1 
39.25  1 


39.26  1 

39.27  1 

39.34  1 

39.35  1 

39.36  1 

39.43  1 

39.44  1 

39.45  1 

39.52  1 

39.53  1 

39.54  1 
4C.10  1 

40.11  1 

40.12  1 

40.19  1 

40.20  1 

40.21  1 

40.28  1 

40.29  1 

40.30  1 

40.37  1 

40.38  1 

40.39  1 

40.46  1 

40.47  1 

40.48  1 

40.55  1 

40.56  1 

40.57  1 

41.13  1 

41.14  1 

41.15  1 

41.22  1 

41.23  1 

41.24  1 

41.31  1 

41.32  1 

41.33  1 

41.40  1 

41.41  1 

41.42  1 

41.49  1 

41.50  1 

41.51  1 

41.58  1 

41.59  1 

41.60  1 

42.7  1 

42.8  1 

42.9  1 

42.16  1 


42.17  1 

42.18  1 

42.25  1 

42.26  1 

42.27  1 

42.34  1 

42.35  1 

42.36  1 

42.43  1 

42.44  1 

42.45  1 

42.52  1 

42.53  1 

42.54  1 

43.10  1 

43.11  1 

43.12  1 

43.19  1 

43.20  1 

43.21  1 

43.28  1 

43.29  1 

43.30  1 

43.37  1 

43.38  1 

43.39  1 

43.46  1 

43.47  1 

43.48  1 

43.55  1 

43.56  1 

43.57  1 

44.13  1 

44.14  1 

44.15  1 

44.22  1 

44.23  1 

44.24  1 

44.31  1 

44.32  1 

44.33  1 

44.40  1 

44.41  1 

44.42  1 

44.49  1 

44.50  1 

44.51  1 

44.58  1 

44.59  1 

44.60  1 
45.1  1 
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45.4  1 

45.7  1 

45.10  1 

45.13  1 

45.16  1 

45.19  1 

45.22  1 

45.25  1 

45.28  1 

45.31  1 

45.34  1 

45.37  1 

45.40  1 

45.43  1 

45.46  1 

45.49  1 

45.52  1 

45.55  1 

45.58  1 

45.61  1 

46.2  1 

46.5  1 

46.8  1 

46.11  1 

46.14  1 

46.17  1 

46.20  1 

46.23  1 

46.26  1 

46.29  1 

46.32  1 

46.35  1 

46.38  1 

46.41  1 

46.44  1 

46.47  1 

46.50  1 

46.53  1 

46.56  1 

46.59  1 

46.62  1 

47.3  1 

47.6  1 

47.9  1 

47.12  1 

47.15  1 

47.18  1 

47.21  1 

47.24  1 

47.27  1 

47.30  1 
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47.33  1 

47.36  1 

47.39  1 

47.42  1 

47.45  1 

47.48  1 

47.51  1 

47.54  1 

47.57  1 

47.60  1 
47.63  1 

48.1  1 

48.4  1 

48.7  1 

48.10  1 

48.13  1 

48.16  1 

48.19  1 

48.22  1 

48.25  1 

48.28  1 

48.31  1 

48.34  1 

48.37  1 

48.40  1 

48.43  1 

48.46  1 

48.49  1 

48.52  1 

48.55  1 

48.58  1 

48.61  1 

49.2  1 

49.5  1 

49.8  1 

49.11  1 

49.14  1 

49.17  1 

49.20  1 

49.23  1 

49.26  1 

49.29  1 

49.32  1 
49.36  1 

49.38  1 

49.41  1 

49.44  1 

49.47  1 

49.50  1 

49.53  1 

49.56  1 
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49.59  1 

49.62  1 

50.3  1 
50.6  1 
50.9  1 
50.12  1 

50. 1 
50.18  1 
50.21  1 
50.24  1 

50.27  1 
50.30  1 
50.33  1 
50.36  1 
50.39  1 
50.42  1 
50.45  1 
50.48  1 
50.51  1 
50.54  1 
50.57  1 

50.60  1 

50.63  1 

51.1  1 

51.2  1 

51.3  1 

51.4  1 

51.5  1 

51.6  1 

51.7  1 

51.8  1 

51.9  1 

51.10  1 

51.11  1 

51.12  1 

51.13  1 

51.14  1 

51.15  1 

51.16  1 

51.17  1 

51.18  1 

51.19  1 

51.20  1 

51.21  1 

51.22  1 

51.23  1 

51.24  1 
1.25  1 

51.26  1 

51.27  1 

51.28  1 
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51.29  1 

51.30  1 

51.31  1 

51.32  1 

51.33  1 

51.34  1 

51.35  1 

51.36  1 

51.37  1 

51.38  1 

51.39  1 

51.40  1 

51.41  1 

51.42  1 

51.43  1 

51.44  1 

51.45  1 

51.46  1 

51.47  1 

51.48  1 

51.49  1 

51.50  1 

51.51  1 

51.52  1 

51.53  1 

51.54  1 

51.55  1 

51.56  1 

51.57  1 

51.58  1 

51.59  1 

51.60  1 

51.61  1 

51.62  1 

51.63  1 

/: 


SCALAR  C  cost  of  increasing  arc  cap  by  1  /  1  /; 

PARAMETER  R(J)  path  rel  ; 

R(J)  =  PRODd  $  A(I,J),  P(I))  : 

VARIABLES 

X(I)  arc  capacity  increase 
F(J)  flow  on  path  J 
Z  network  lower  bound  maxflo  ; 

POSITIVE  VARIABLES  F.X  ; 

EQUATIONS 


!)S 


MAXFLO 

PATHFLO(I) 

MAXCAP(I) 

BUDGET  : 

MAXFLO  ..  Z  =E=  SUMfJ,  R(J)*F(J))  ; 

PATHFLO(I)$(U(I)  ne  0)  ..SUM(J  $  A(I,J),  F(J))  =L=  U(I)+X(I) 
HAXCAP(I)  ..  X(I)  =L=  2400  ; 

BUDGET  ..  SUM(I,  C*X(I))  -L=  8000  ; 

MODEL  CAPINV  /ALL/  ; 

OPTION  LIMROW  =  0 

SOLVE  CAPINV  USING  LP  MAXIMIZING  Z  ; 


DISPLAY  X.L,  F.L  ; 


B.3  Nonlinear  Combined  Improvement  Model 


$OFFSYMXREF  OFFSYMLIST 
SETS 

I  arcs  /I  *  51/ 

J  paths  /I  *  63/ ; 

PARAKETERS 


U(I)  arc  capacities 

/ 

1  0 
0 

3  0 

4  0 

5  0 
S  0 

7  0 

8  0 

9  0 

10  0 
11  0 
12  0 

13  0 

14  0 

15  0 

16  0 

17  0 

18  0 

19  0 

20  0 
21  0 
22  0 

23  0 

24  1200 

25  1200 

26  1200 

27  1200 

28  1200 

29  1200 

30  1200 

31  1200 

32  1200 

33  1200 

34  4800 


100 


35  4800 

36  4800 

37  4800 

38  4800 

39  4800 

40  4800 

41  4800 

42  4800 

43  4800 

44  4800 

45  4800 

46  4800 

47  4800 

48  4800 

49  4800 

50  4800 

51  0 

/ 


P(I)  arc  probabilities 

/ 

1  1.00 

2  0.30 

3  0.70 

4  0.50 

5  0.80 

6  1.00 

7  0.30 

8  0.70 

9  0.60 
10  0.80 
11  1.00 

12  0.30 

13  0.70 

14  0.50 

15  0.80 

16  0.80 

17  0.70 

18  0.30 

19  1.00 

20  1.00 
21  1.00 
22  1.00 

23  1.00 

24  1.00 

25  0.60 

26  0.30 

27  1.00 

28  1.00 

29  1.00 

30  1.00 


31  1.00 

32  O.oO 
3.3  0.70 

34  1.00 

35  0.70 

36  1.00 

37  0.60 

38  1.00 

39  0.30 

40  0.60 

41  0.70 

42  0.60 

43  60 

44  -  ..30 

45  0.60 

46  0.60 

47  0.30 

48  0.30 

49  0.60 

50  0.70 

51  1.00 

/ 

A(I,J)  arc-path  matrix 

/ 

1.43  1 

1.44  1 

1.45  1 
1  46  1 

1.47  1 

1.48  1 

1.49  1 

1.50  1 

1.51  1 

1.62  1 
i  .53  1 
:.S4  1 
->  .v5  1 
'  .56  1 

1.57  1 

1.58  : 

1.59  1 

1.60  1 
i.ei  1 

1.62  1 

1.63  1 
2.4  1 


i()-2 


(data  same  as  linear  model) 


51.60  1 

51.61  1 

51.62  1 

51.63  1 

/: 


SCALAR  CC  cost  of  increasing  arc  cap  by  1  /  1  /: 
SCALAR  CR  cost  of  increasing  arc  surv  by  .1  /400/: 


VARIABLES 

C(I)  arc  cap  increase 
X(I)  arc  surv  increase 
F(J)  flow  on  path  J 
Z  network  lower  bound  raxflo  ; 

POSITIVE  VARIABLES  C.P.X  ; 

EQUATIONS 

MAXFLO 

PATHFLO(I) 

MAXCAP(I) 

RELCI) 

BUDGET  ; 

MAXFLO  ..  Z  =E=  SUM(J,  PR0D(I  $  A(I,J).  P(I)  +  (  .!*/.(!)  (J) ) 

PATHFLO(I)$(U(I)  ne  0)  ..SUM(J  $  A(I,J).  F(j))  =L=  U(I)+C(I) 
REL(I)  ..  P(I)+(.1*X(I))  =L=  1  ; 

BUDGET  ..  SUM(I,  CR*X(I)  +  CC*C(I))  =L=  8000  ; 

MAXCAP(I)  ..  C(I)  +U(I)  -L=  4800  ; 

MODEL  AMAX  /ALL/  ; 

OPTION  LIMROW  =  0 

.SOLVE  AMAX  USING  NLP  MAXIMIZING  Z  ; 


DISPLAY  X.L,  C.L,  F.L  ; 


Appendix  C.  Formula  Input  Files 


C.l  Network  A 


arc (s, 20) . 
arc(s ,21) . 
arc(s,22) . 
arc(s ,23) . 
arc(l ,29) . 
arc(l ,30) . 
arc(l,3l) . 
arc(2,25) . 
arc(2,26) . 
arc(3,27) . 
arc(3,28). 
arc(4,24). 
arc(5,32) . 
arc(S,33) . 
arc(6,42) . 
arc(7,43) . 
arc(8.44). 
arc(9,34) . 
arc(10,37) . 
arcCll ,38) . 
arc  (12, 35) 
arc(13,36). 
arc (14, 45) . 
arc(l4,46) . 
arc(14,47) . 
arc(15,39) . 
arc(15,40) . 
arc(15,41) . 
arc(16,51) . 
arc (17, 50) 
arc(18,49) . 
arc(19,48). 
arc(20,4) . 
arc(21 ,2) . 
arc(22,3). 
arc(23, 1) . 
arc(24,14). 
arc(25,14). 
arc(26,5) . 
arc(27, 11) 
arc(28,9) . 
arc(29, 12) . 
arc(30,13'' . 
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arc(31 , 14)  . 
arc(32,10). 
arc(33,ll)  . 
arc(34, 15)  . 
arc(35, 15) . 
arc(36,15) . 
arc(37,15). 
arc(38,15) . 
arc(39,6) . 
arc(40,7) . 
arc(41 ,8) . 
arc(42,14) . 
arc(43, 14) . 
arc(44,14) . 
arc(45,19) . 
arc(46,18). 
arc(47,17). 
arc(48,16). 
arc(49,16) . 
arc(50,16) . 
arc(51 ,t) . 
prob(s,l). 
probd  ,1) . 
prob{2,0.3) . 
prob(3,0,7). 
prob(4,0.5) . 
prob(5,0,8) . 
prob(6,l) 

prob(7 ,0  3) . 
prob(8,0.7). 
prob(9,0.5) . 
prob(10,0.8) 

prob(ll , 1) • 

prob(12,0.3) 
prob(13,0.7) 
prob(l4,0.5) 
prob(l5,0.8) 
prob(16,0.8) 
prob(l7,0.7) 
prob(18,0.3) 
prob(19, 1)  • 

prob(20, 1) . 
prob{21 ,1) • 
prob(22, 1) • 
prob(23, 1) • 
prob(24,l) • 
prob{25,0.6) 
prob(26,0.3) 
prob(27 ,1) • 
prob(28, 1) ■ 
prob(29, 1) . 


prob(30,l) . 
prob(31,l) . 
prob(32,0.6). 
prob(33,0.7) . 
prob(34, 1) . 
prob(35,0.7) . 
prob(36, 1) . 
prob(37,0.6). 
prob(38,l) . 
prob(39,0.3) . 
prob(40,0.6). 
prob(41 ,0.7) . 
prob(42,0.6). 
prob(43,0.6) . 
prob(44,0.3) . 
prob(45,0.6) . 
prob(46,0.6) . 
prob(47,0.3) . 
prob(48,0.3) . 
prob(49,0.6) . 
prob(50,0.7) . 
prob(51 ,1) . 
prob(t,l) . 
capd,*) . 
cap(2,*) . 
cap(3,>f ) . 
cap{4,*). 
cap(5,*) . 
cap(6.#) . 
cap(7,*) . 
cap(8,*) . 
capO,*)  . 
cap(10,») . 
cap(ll,*). 
cap(12,*) . 
cap(13,*) . 
cap(l4,*) . 
cap(l5,*) . 
cap(16,*) . 
cap(l7,*). 
cap(18,f) . 
cap(19,*) . 
cap(20,*) . 
cap(21 ,♦) . 
cap(22,*). 
cap(23,*) . 
cap(24,1200). 
cap(25,1200). 
cap(26,1200). 
cap(27,1200). 
cap(28,1200) . 


cap (29. 1200). 
cap (30, 1200). 
cap(31,1200). 
cap(32,1200). 
cap(33,1200). 
cap(34,4800). 
cap(35,4800). 
cap(36,4800) . 
cap(37,4800). 
cap(38,4800). 
cap(39,4800). 
cap(40,4800) . 
cap(41,4800). 
cap(42,4800) . 
cap(43,4800) . 
cap(44,4800) . 
cap(45,4800). 
cap (46, 4800). 
cap(47,4800). 
cap(48.4800). 
cap(49,4800). 
cap(50,4800) . 
cap(51 ,♦) . 


C.2  Network  B 


arc(s,60) . 
arc(s,51) . 
arc(s,S2) . 
arc(s,53) . 
arc(s,54) . 
arc(s ,55) . 
arc(56,t) . 
arc(57,t) . 
circ(58,t) . 
arc(59,t) . 
arc(60,t) . 
arc(61,t) . 
arc(62,t) . 
arc(63,t) . 
arc(64,t) . 
arc(65,t) . 
arc(50,38) . 
arc(51 ,39) 
arc(52,40). 
arc(53,8) . 
arc (53, 9) . 
arc(S4,10) . 
arc(55,41) . 
arc(l,42) . 
arc(5,42) . 
arc(2, 15) . 
arc(3, 15) . 
arc(4,43) . 
arc(6,43). 
arc(14,44) . 
arc(15,44) . 
arc(16,44). 
arc(17,45) . 
arc (18, 23) . 
arc(18,24). 
arc(19,4o) . 
arc(10,47). 
arc(26,48). 
arc(7,49). 
arc(8,49). 
arc(ll,49). 
arc(23,49) . 
arc(25 ,49) . 
arc(27,49). 
arc(20,56) . 
arc(28,56) . 
arc(21 ,57) . 
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arc(29,57). 
arc(22,58) . 
arc(30,58) . 
arc(24,59) . 
arc(31 ,59) . 
arc(32,60) 
arc(33,61)  . 
arc (34, 62). 
arc(9,63) . 
arc(35,63) . 
arc(12,64) . 
arc(36,64) . 
arc(13,65) . 
arc(37,6S). 
arc(38, 1) . 
arc(38,2) . 
arc(39,3) . 
arc(39,4) . 
arc(40,5) . 
arc(40,6) . 
arc(40,7). 
arc(41,ll). 
arc(41,12) . 
arc(41,13) . 
arc(42,14) . 
arc(43,16) . 
arc(44,17). 
arc(44, 18) . 
arc(44,19). 
arc(4S,20) . 
arc(45,21) . 
arc(4S,22) . 
arc(46,25) . 
arc(47,26). 
arc(48,27). 
arc(49,28). 
arc (49, 29) . 
arc(49,30) . 
arc(49,31) . 
arc(49,32) . 
arc(49,33) . 
arc(49,34) . 
arc(49,35) . 
arc(49,36). 
arc(49,37). 
prob(s,1.0) 
probd  ,0.8) 
prob(2,0.8) 
prob(3,0.5) 
prob(4 ,0.5) 
prob(5,0.8) 


prob(6,0.5) . 
prob(7,0.6) . 
prob(8,0.8) . 
prob(9,0.5) . 
prob(10,0.8) , 
probCll ,0.6) . 
prob(12,0.6) . 
prob(13,0.6) . 
prob(14,0.5) . 
prob(15,0.7) . 
prob(16,0.5) . 
prob(17,0.5) . 
prob(18,0.7) . 
prob(19,0.7) . 
prob(20,0.5) . 
prob(21 ,0.5) . 
prob(22,0.5) . 
prob(23,0.7) . 
prob(24,0.S) . 
prob(25,0.7) . 
prob(26,0.8). 
prob(27,0.8) . 
prob(28,0.6) . 
prob(29,0.6). 
prob(30,0.6) . 
prob(31,0.6). 
prob(32,0.6). 
prob(33,0.6). 
prob(34,0.6) . 
prob(35,0.6) . 
prob(36,0.6) . 
prob(37,0.6) , 
prob(38,0.7) . 
prob(39,0.15) 
prob(40,0.03) 
prob(41 ,0.04) 
prob(42,0.4) . 
prob(43,0.Cl) 
prob(44,0.,7) . 
prob(45,0. 11) 
prob(46,0.06) 
prob(47,0.09) 
prob(48,0.18) 
prob(49,0.07) 
prob(50, 1 .0) . 
prob(51 ,1.0). 
prob(52,l .0) . 
prob(53 ,1.0). 
prob(54,l .0) . 
prob(55,1.0) . 
prob(56,l,0) . 


prob(57,1.0) . 
prob(68, i.O) , 
prob(69, 1 .0) , 
prob(60, 1 .0) . 
prob(61 ,1.0), 
prob(62, 1 .0) , 
prob(63, 1 .0) . 
prob(64, 1 .0) 
prob(6S,1.0) 
prob(t, 1 .0) . 
capd  ,150) . 
cap(2,200) . 
cap(3,750) . 
cap(4,750) . 
cap(5,200) . 
cap(6,750) . 
cap(7,lS0). 
cap(8,200) . 
cap(9.600) . 
cap(l0,1200) 
capd  1,1200) 
capd2,7S)  . 
capd3,75) . 
capd4,1200) 
capd5,1200) 
capd6,2400) 
capd7,1200) 
capd8,1200) 
capd9,1200) 
cap(20,1200) 
cap(21 ,75) . 
cap(22,1200) 
cap(23,1200) 
cap(24,1200) 
cap(25,600) . 
cap(26,1200) 
cap(27,1200) 
cap(28,75) . 
cap(29,75) . 
cap(30,75) . 
cap(31 ,75) . 
cap(3':,75) . 
cap(33,75) . 
cap;34,75) , 
cap(35 ,75) . 
cap(36,75J . 
cap(37 ,75) . 
cap(38,*) . 
cap(39,*) . 
cap(40,+) . 
cap(41 ,♦) . 


cap(42,*) . 
cap(43,*) . 
cap(44,*) . 
cap(46,*) . 
cap(46,*) . 
cap(47,*) . 
cap(48,*) . 
cap(49,f) . 
cap(SO,*) . 
cap(51 ,*) . 
cap(52,*) . 
cap(53,*) . 
cap(54,*). 
cap(55,*) . 
cap(56, *) . 
cap(57,*). 
cap(58,*) . 
cap(59,*) . 
cap(60,*) . 
cap(61,*) . 
cap(62,*) . 
cap(63,*) . 
cap(64,*) . 
cap(65,*) . 


C.S  Network  C 


cost(l,l) . 
cost (2, 1) 
cost(3,l) , 
cost(4,l) . 
cost (5, 1)  •• 
cost(6, 1) . 
cost(7,l) . 
cost (8,1) . 
cost (9, 1) . 
cost(10, 1) . 
cost(ll ,1) . 
cost(12, 1) . 
cost (13, 1) . 
cost (14, 1) . 
cost(15, 1) . 
cost(16, 1) . 
cost (17, 1) . 
cost(18, 1) . 
cost(19, 1) . 
cost(20, 1) . 
cost(21 , 1) . 
cost (22, 1) . 
cost(23, 1) . 
cost(24, 1) . 
cost (25, 1) . 
cost(26, 1) . 
cost(27, 1) . 
cost(28, 1) . 
cost(29, 1) . 
cost(30, 1) . 
cost(31 , 1) . 
cost (32, 1)  .• 
cost(33 , 1) . 
cost(34, 1) . 
cost(35,l). 
cost(36, 1) . 
cost(37, 1) . 
cost(38, 1) . 
cost(39, 1) . 
cost(40, 1) . 
cost(41 , 1) . 
cost(42, 1) . 
cost(43, 1) . 
cost(44, 1) . 
cost(4S, 1) . 
cost(46, 1) . 
cost(47, 1) . 


cost(48,l) . 
cost (49,1) . 
cost(50, 1) . 
cost(51,l) . 
cost(52,l) . 
cost(53, 1) . 
cost(54,l) . 
rcostCl , 1) . 
rcost(4,l) . 
rcost(5, 1) . 
rcost(6, 1) . 
rcost(8,l) . 
rcostdO,  1) . 
rcostdl.l). 
rcost(l2, 1) .. 
rcostdS,  1) . 
rcostd4, 1) . 
rcostClS, 1) . 
rcostdS,  1) . 
rcostClQ, 1) . 
rcost(20, 1) . 
rcost(21 , 1) 
rcost(22, 1) . 
rcost(25, 1) . 
rco5t(26, 1) . 
rcost(27, 1) . 
rcost(28, 1) . 
rcost(29, 1) . 
rcost(32, 1) . 
rcost(33, 1) . 
rcost(34, 1) . 
r cost (35, 1) .. 
rcost(36, 1) . 
rcost(37, 1) . 
rcost(40, 1) . 
rcost(41, 1) . 
rcost(42, 1) 
rcost(43, 1) . 
rcost(44, 1) . 
r cost  (47 , 1) 
rcost(48, 1) . 
rcost(49, 1) . 
rcost(50, 1) . 
rcost(51 ,1) . 
rcost(54, 1) . 
arc(s,87) . 
arc(s ,88) . 
arc(s,89) . 
arc(s,90) . 
arc(s,91) . 
arc(:'  ,92)  . 


arc(93,t; . 
arc(94,t) . 
arc(95,t) . 
arc(96,t) . 
circ(97,t) . 
arc(98,t) . 
arc(99,t) . 
arc(100,t) . 
arc(101 ,t) . 
aTc(102,t) . 
arc(103,t) . 
arc(l04,t) . 
circ(105,t) . 
arc(106,t) . 
arc(107,t) . 
arc(108,t) . 
arc(109,t) . 
arc(87,55) . 
arc(88,56) 
arc(89,57) . 
arc(90,58) . 
arc(91 ,5) . 
arc(92,59) . 
arc(3,60) . 
arc(5,61) . 
arc(6,62) . 
arc(7, 10) . 
arc(l ,63) . 
arc(2,63) . 
arc(4,63) . 
arc(8,63) . 
arc(9,63) . 
arc(l0,63) . 
arc(ll ,64) . 
arc(16,65) . 
arc(l7,66) . 
arc(l8,40) . 
arc(l8,41) . 
arc(l9,67) . 
arc(20,68) . 
arc(21 ,69) . 
arc(22,70) . 
arc(23,52). 
arc(24,71) . 
arc(25,72) . 
arc(12,73). 
arc(26,73) . 
arc(33,73). 
arc(l3,74) . 
arc(27,74) . 
arc(34,74) . 


arc(28,93) . 
arc (35, 93) . 
arc (29, 75). 
arc(36,75). 
arc(30,76) . 
arc(37,76). 
arc(31,77). 
arc(38,77). 
arc(32,78). 
arc(39,78). 
arc (42, 94) . 
arc(47,94) . 
arc(40,79) . 
arc(43,79) . 
arc(41,80). 
arc (44, 80). 
arc(45,81) . 
arc(48,81). 
arc(49,82). 
arc(S2,95). 
arc (46, 83) ., 
arc (S3, 83) . 
arc(S4,84) . 
arc(14,85) . 
arc(50,85) . 
arc(15,86) . 
arc(51 ,86) . 
arc(55,l) . 
arc(S6,2) . 
arc(57 ,3) . 
arc(58,4) . 
arc(59,6) . 
arc(60,7). 
arc(61,8) . 
arc(62,9) . 
arc (63, 11) . 
arc(63,12) . 
arc(63, 13) . 
arc(63, 14) . 
arc(63,15) . 
arc(64, 16) . 
arc(64,l?). 
arc(64,18) . 
arc(64,19) ., 
arc (64, 20) . 
arc(64,21) . 
arc(64,22). 
arc(64,23) . 
arc (64, 24) . 
arc(64,25) . 
arc(65,26) . 
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arc(65,27) . 
arc(6S,28). 
arc (65, 29) . 
arc(65,30) . 
arc (65, 31) . 
arc(65,32) . 
arc(66,33) . 
arc (66, 34) . 
arc (66, 35) . 
arc (66, 36). 
arc(66,37). 
arc(66,38) . 
arc(66,39) . 
arc (67, 42) . 
arc(67,43). 
arc (67, 44). 
arc (67, 45) . 
arc (67, 46) . 
arc(68,47). 
arc (68, 48). 
arc(68,49) . 
arc(69,50) . 
arc(70,5l) . 
arc(71,53). 
arc(72,54) . 
arc (73, 96). 
arc (74, 97). 
arc (75, 98). 
arc(76 ,99) . 
arc(77,100) . 
arc(78,101) . 
arc(79,102). 
arc(80,103). 
arc(81 , 104) . 
arc (82, 105) . 
arc(83,106) . 
arc(84,107) . 
arc(85, 108) . 
arc(86, 109) . 
prob(s,l). 
prob(l,0.900). 
prob(2, 1 .000) . 
prob(3, 1 .000) . 
prob(4, 0.600). 
prob(5, 0.300). 
prob(6, 0.600) . 
prob(7, 1 .000) 
prob(8, 0.900) . 
prob(9, 1 .000) . 
probdO, 0.700) 
probdl  ,0.900) 


prob(12, 0.600). 
prob( 13, 0.300). 
prob( 14, 0.600) . 
prob( IS, 0.700) . 
prob(16, 1 .000) . 
prob( 17,1 .000) . 
prob(l8,0.600).- 
prob(19, 0.300) . 
prob(20, 0.600) . 
prob(21, 0.700) . 
prob(22, 0.900) . 
prob(23, 1 .000) . 
prob(24, 1 .000) . 
prob(25,0 .600) . 
prob(26, 0.300) . 
prob(27,0 .600) . 
prob(28,0 .700) . 
prob(29, 0.900) . 
prob(30, 1 .000) . 
prob(31,l .000) . 
prob(32, 0.300) . 
prob(33, 0.600) . 
prob(34,0 .300)  .• 
prob(35, 0.600). 
prob(36, 0.700). 
prob(37, 0.900) . 
prob(38,l .000) . 
prob(39, 1.000). 
prob(40, 0.600) . 
proD(41, 0.300) . 
prob(42, 0.600) . 
prob(43, 0.700) . 
prob(44, 0.900) . 
prob(45,l .000) . 
prob(46, 1 .000) . 
prob(47, 0.600) . 
prob(48, 0.300) . 
prob(49, 0.600) . 
prob(50, 0.700). 
prob(51, 0.900) . 
prob(52, 1.000). 
prob(53,l .000) . 
prob(54, 0.600) . 
prob(55, 0.300) . 
prob(56, 0.700) . 
prob{57, 0.500) . 
prob(58, 0.800) - 
prob(59, 0.300). 
prob(60, 0.700) . 
prob(61 ,0.500) . 
prob(62, 0.800) . 


prob(63, 0.700) . 
prob(64, 0.700). 
prob(65, 0.500) . 
prob(66, 0.800) . 
prob(67, 0.300) . 
prob(68, 0.700) . 
prob(69, 0.500). 
prob(70, 0.800) . 
prob(71 ,0.300) . 
prob(72, 0.700)  , 
prob(73, 0.500) . 
prob(74, 0.800) .. 
prob(75, 0.300). 
prob(76, 0.700) . 
prob(77, 0.500) . 
prob(78, 0.800) . 
prob(79, 0.300) . 
prob(80, 0.700). 
prob(81 ,0.500) . 
prob(82, 0.800). 
prob(83, 0.300) . 
prob(84, 0.700) . 
prob(85, 0.500) . 
prob(86, 0.800). 
prob (87, 1.000) . 
prob(88, 1.000) . 
prob(89, 1.000). 
prob(90, 1.000). 
prob(91, 1.000). 
prob(92, 1.000). 
prob(93, 1.000) . 
prob(94, 1.000) . 
prob(95, 1.000). 
prob(96, 1.000) . 
prob(97, 1.000) . 
prob(98, 1.000). 
prob(99, 1.000) . 
probdOO,!  .000) 
probdOl,  1.000) 
probd02, 1.000) 
probd03,l  .000) 
probd04,l  .000) 
probd05, 1.000) 
probClOS,! .000) 
probd07, 1.000) 
probd08,l  .000) 
probd09, 1.000) 
prob(t, 1) . 
cap{ 1,1200. 000) 
CEp(2, 1200. 000) 
cap (3, 300. 000) . 


cap(4. 1200. 000). 
cap (5, 1200. 000). 
cap(6, 1200.000). 
cap(7,300.000). 
cap(8, 1200. 000). 
cap(9, 1200.000). 
cap(10,300.000). 
capCll, 9600. 000) . 
cap(12,75.000). 
cap(13.7S.000).. 
cap( 14, 1200.000). 
cap(15,1200.000). 
cap(16,4800.000), 
cap(17,4800.000). 
cap(18,4800.000). 
cap(19, 4800. 000). 
cap(20, 4800. 000). 
cap(21, 2400. 000) . 
cap(22, 4800. 000). 
cap (23, 4800. 000). 
cap (24, 4800. 000). 
cap (25, 2400. 000). 
cap (26, 4800. 000). 
cap(27, 4800. 000). 
cap(28. 2400. 000). 
cap (29, 1200.000). 
cap(30, 1200. 000). 
cap(31, 1200. 000). 
cap(32, 1200.000). 
cap (33, 4800. 000). 
cap(34, 4800. 000). 
cap (35, 2400. 000) . 
cap(36, 1200. 000) . 
cap(37, 1200. 000). 
cap(38, 1200. 000). 
cap(39, 1200.000) . 
cap(40, 2400. 000). 
cap(41, 1200. 000). 
cap(42,300.000) . 
cap(43. 2400. 000). 
cap(44. 1200.000) . 
cap(45,300.000). 
cap(46, 2400. 000). 
cap(47, 1200. 000). 
cap(48,300.000). 
cap (49, 300. 000) . 
cap(50, 1200. 000). 
cap(51, 1200. 000). 
cap (52. 2400. 000). 
cap (53, 2400. 000). 
cap(54,60C.000) . 


cap(55,*) . 
cap(56,*) . 
cap(57,*) . 
cap(58,*) . 
cap(59,*) 
cap(60,*) . 
cap(61 ,♦) . 
cap(62,*) . 
cap(63,*) . 
cap(64,*) . 
cap(65,») . 
cap(66,*) . 
cap(67, 
cap(68,*) . 
cap(69,*) . 
cap(70,*) . 
cap(71,*). 
cap(72,*) . 
cap(73,*) . 
cap(74,») . 
cap(75,*) . 
cap(76,*) . 
cap(77,*) . 
cap(78,*) . 
cap(79,*) . 
cap(80,*) . 
cap(81 ,♦) . 
cap(82,*) .. 
cap(83,*) . 
cap(84,») . 
cap(85,*) . 
cap(86,*) . 
cap(87,*) . 
cap(88,*) . 
cap(89,*) .. 
cap(90,*) .. 
capOl ,») . 
cap(92,*) . 
cap(93,*) . 
cap(94,*) . 
cap(95,*) . 
cap(S6.*) 
cap(97,*) . 
cap(98,*) .. 
cap(99,*) . 
capdOO,*) 
capClOl ,*) 
cap{102,») 
cap(103,*> 
cap(104,*) 
cap(105,») 


cap(106,*) . 
cap(107,*) . 
cap(108,*) . 
cap(109,») . 
invest(l,0) . 
invest(2,0) . 
invest (3,0) . 
invest(4,0) . 
invest{5,0) . 
invest (6,0) 
invest(7,0) . 
invest (8,0) . 
invest(9,0) . 
invest(10,0) . 
investdl  ,0)  .• 
invest(12,0) . 
invest(13,0) . 
invest(l4,0) . 
invest(15,0) . 
invest (16,0)  .• 
invest(17,0) . 
inve5t(18,0) . 
invest(19,0) . 
invest(20,0) . 
invest  (21 ,0) .. 
invest(22,0) . 
invest (23,0)  .■ 
invest(24,0) . 
invest(25,0) . 
invest(26,0) . 
invest(27,0) . 
invest(28,0) . 
invest(29,0) . 
invest (30,0) . 
invest(31 ,0) . 
invest(32,0) . 
invest(33,0) . 
invest(34,0) . 
invest(35,0) . 
invest (36,0) . 
invest(37,0) . 
invest(38,0) . 
invest(39,0) . 
invest(40,0) . 
invest(41 ,0) . 
invest(42,0) . 
invest(43,0) . 
invesc(44,0) . 
invest(4S,0) . 
invest(46,0) . 
invest(47,0) . 


invest (48,0) . 
invest(49,0) . 
invest(50,0) . 
invest(51,0) . 
invest (52,0) . 
invest (53,0) . 
invest(54,0) . 
budget (10000) . 
rbudget( 10000) 


Appendix  D.  Formula  Version  3.0  User’s  Manual 


Th’s  manual  explains  how  to  use  Prolog  program,  FORMULA  Version  3.0.  It  consists  of  the 
Version  2.0  user’s  manual  written  by  Caught  ( 12;243-2.')1),  updated  with  version  3.0  enhancements. 
This  program  consists  of  two  files: 

*  FORMULAS. ARI  -  Contains  the  main  computer  program. 

*  W1NDOWS3.AR1  -  Contains  window  dialog  boxes. 

D.l  Required  Eqxtipmenf 

Currently.  FORMULA  recpiires  ARITY/PROLOG  interpreter  program  to  run.  The  in¬ 
terpreter  and  FORMULA  can  be  installed  on  an  IBM-XT/.\T  compatible  microcomputer.  The 
computer  with  at  least  512  kilobytes  of  random  access  memory  and  20  megabyte  hard  di.sk  is 
desired. 

D.2  Rxuniing  the  FORMULA 

.\ssuming  both  ARITY/PROLOG  interpreter  and  FORMULA  are  installed  on  your  com- 
putci.  start  the  interpreter  In  t\ ping  "'.API’.  When  prompt  appears,  consult  your  program  by 
tvping  ‘cnnsul((’formula3.ari').  '  After  the  program  has  been  consulted  coriectly,  type  in  ‘go.’  to 
start  the  program  FOR.MUI-A.  '1  he  program  proceeds  ibrough  the  following  steps: 

1)  First,  it  displays  an  mtroductorv  screen  di.splaying  what  this  programcan  do.  (Just  hit 
any  key  to  go  on.) 

2)  Next,  it  asks  foi  the  name  of  in|>ul  data  file  which  contains  tlie  description  of  network  to 
be  analyzed  (Type  in  the  exact  name  of  input  file  and  int  return.) 

3)  After  the  iiiinit  file  name  ha.s  been  typed  in.  tlie  luogram  displavs  a  menu  window  from 
which  you  can  choose  to  generate  the  .'.pecilic  output  (.Select  number  1. 2.  3.  J.  5,  6.  7.8,  or  0): 

!  Find  all  paths  and  calculate  path  reliabilities. 

2.  Generate  the  Maximum  Flow  Formulation. 

3.  GciKTate  the  Lower  Mound  Formulation 
'1.  Geiu'rale  the  Upjier  Mound  Formulation 

.5  Generate  the  liive'-lmeiit  Stiati'gv  Mmlel  I 
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6.  Generate  tlie  Investment  Strategy  Model  2. 

7.  Generate  the  Investment  Strategy  Model  3. 

8.  Generate  Reliability  Files. 

9.  Exit. 

4)  It  then  asks  where  to  send  the  output.  If  you  just  want  to  screen  the  output,  choose  1; 
otherwise,  choose  2  to  save  the  output  in  a  file.  The  output  filename  is  automatically  generated 
by  the  program.  When  the  user  requests  the  output  to  be  sent  to  a  file,  the  output  of  paths  and 
reliabilities  is  sent  to  ‘oulputl  Ip',  maximum  flow  to  ‘output2.1p’,  lower  bound  to  ‘outputs. Ip’,  upper 
bound  to  ‘outputd.lp’,  investment  strategy  model  1  to  ‘outputs. Ip’,  investment  strategy  model  2  to 
‘outpute.lp’,  and  investment  strategy  model  3  to  ‘output?. nip’.  The  reliability  files  generated  are 

1)  path.f,  2)  prob.f,  3)  cap.f,  and  4)  net. top.  (Select  1  or  2.) 

5)  .‘\fter  the  output  has  been  generated,  the  program  asks  if  you  want  to  run  the  program 
again.  If  you  are  interested  in  getting  other  output,  type  in  ‘y’;  otherwise  type  in  ‘n’  which  exits 
the  program.  (Type  in  y  or  n.) 

D.3  Input 

In  preparing  the  input  data,  you  have  to  follow  the  following  procedures: 

1)  If  the  network  contains  stochastic  and/or  capacitated  nodes,  convert  the  nodes  to  a  dummy 
arc  joined  by  two  nodes  d'lie  dummy  arc  represents  the  stochastic  and/or  capacitated  node. 

2)  Introduce  an  artificial  single  .source  and  single  sink.  The  source  and  sink  must  be  named 
.s  and  /,  respectively.  Connect  all  source  nodes  in  the  network  to  .s,  and  all  sink  nodes  to  /. 

3)  Diavv  a  revised  network,  and  a,ssign  arc  numbers.  It  has  been  found  very  helpful  if  you 
number  the  duimiiy  arc.s  repre.<ient ing  tin'  node  with  the  same  node  number.  Tlien  niiiiilier  the 
remaining  arcs  starting  with  one  number  higher  than  the  number  of  nodes  in  the  network  Thus, 
for  example,  if  you  have  20  nodes  in  the  original  network,  number  the  remaining  arcs  starting  with 
21 

4)  F.^iiig  a  le.\t  editor  (Arily /Prolog  rnmes  with  it.-,  own  editorj.  prepare  (he  m|)Ul  data  by 
ty  ping  ill  iIk'  (le.^-cription  of  revised  network  that  is  to  lie  analyzed.  'I'lie  input  consists  of  eight 
data  sets:  description  of  an  aic  relationship  with  respect  to  one  another,  the  survival  probability 
of  each  arc,  the  cajiacity  of  each  arc.  the  cost  of  improving  each  arc  by  one  unit  of  cajiacity,  the 
predf'teriniiied  amount  of  capaiity  iiirrea.se  m  <’nrh  component,  total  biidgi't  available  for  capacity 


investment,  the  cost  of  improving  the  reliability  of  each  arc  by  0.1,  and  the  total  budget  available 
for  reliability  investment..  These  input  are  described  as  facts  in  Prolog  term  as  follows: 


Input 


Description 


arc(Arcl , Arc2) .  Arcl  is  the  parent  of  Arc2 

(Arcl  precedes  Arc2) . 

prob(A,Pb).  The  survival  probability  of 

arc  A  is  Pb. 


cap(A,Cp) . 


cost(A,Cs) . 


The  capacity  of  arc  A  is  Cp. 

The  unlimited  (infinite)  capacity 
is  denoted  by  . 

The  cost  of  increasing  one  unit 
of  capacity  in  arc  A  is  Cs. 


invest (A, Am) . 


The  predetermined  amount  of 
capacity  increase  for  arc  A  is  Am. 


budget (Be) . 


Total  budget  available  for  invest¬ 
ment  in  capacity  is  Be. 


rcost(A ,Rs) . 


The  cost  of  increasing  one  unit 
of  reliability  in  arc  A  is  Rs. 


rbudget(Br) . 


Total  budget  available  for  invest¬ 
ment  in  reliability  is  Br. 


When  defining  arc  relationships,  you  must  define  the  relationshij)  of  .s  and  (  with  respect,  to 
oth(>r  arcs  So  >10(3,2) .'  defines  that  the  arc  2  is  incidence  to  node  s,  tliat  is.  the  arc  2  leavi's 
the  nodi'  s.  In  a  likely  manner,  'arc(22,t)  .’  defines  that  the  arc  22  arrive.s  at  node  t.  In  addition 
to  s]>erifying  the  probability  of  each  arc,  the  probability  of  s  and  t  must  be  defined  a.s  1  'I’hns,  in 
the  |>rol)ahility  description,  make  sure  yon  include  "probfs,!)'  and  ’probft,!)'. 

5)  Depending  on  your  ni'ed,  some  of  the  input  data  may  he  omitted.  Refer  to  the  table 
below  to  .see  e.xactly  which  data  set.  are  required  to  get  t.he  desiied  out.put.  Tor  e-Nample,  if  you  are 
oiil\  interested  in  finding  jiaths  and  their  reliabilities,  all  >011  need  is  arc  lelalionships  and  survival 
probabilities. 


1  For  this  output:' 

lYou  must  have 

the  following  data: I 

1  Paths  and  Reliabilities 

1  arcCX.Y). 

1 

1 

1  prob(X,Y). 

1 

1  Maximum  Flow, 

1  arc(X,Y). 

1 

1  Lower  Bound,  or 

1  probCX.Y). 

1 

1  Upper  Bound 

1  capCX.Y). 

1 

1  Improvement  Strategy  1 

1 

1 

1 

1 

1  arc(X,Y). 

1  prob(X,Y). 

1  cap(X,Y). 

1  cost(X,Y). 

1  budget(X  ,Y) ., 

1 

1 

1 

1 

1 

1  Improvement  Strategy  2 

1 

1 

1 

1 

1 

1  arc(X,Y). 

1  probCX.Y). 

1  cap(X,Y). 

1  cost(X,Y). 

1  budget(X,Y). 

1  invest(X,Y). 

1 

1 

! 

1 

1 

1 

1  Improvement  Strategy  3 

1 

1 

1 

1 

1  arcCX.Y). 

1  prob(X,Y). 

1  capCX.Y). 

1  rcost(X,Y).- 
1  r budget (X,Y) 

1 

1 

1 

1 

(5)  VVlieii  using  Aiil\/Prolog.  it  is  custoniary  to  name  the  file  with  ”  an'  (ixtension  So  name 
your  input  file  with  '.ari' extension. 

D./i  Examplf 

To  illustrate  how  to  piepar<'  llie  input  data,  consider  a  network  hliowu  in  Figure  18.  Thi> 
network  rontain.s  A  nodes  and  3  arcs.  It  has  multiple  sources.  1  and  2.  and  a  single  sink.  I. 

The  cost  of  increasing  one  unit  of  rapacity  is  as  follows:  node  :{  =  10,  arcj  3  =  20.  arcv  3  = 
30.  and  arc.3,4  10.  The  iiredet.ermiiied  nniouut  of  capacity  inrrea.se  is  Ty  units  for  all  rompoiu'iits. 

and  the  total  hudget  availahle  for  investment  is  $1000.  The  cost  of  increasing  ••c-liahili>y  0  1  is  the 
same  ;us  increasing  capacity  hy  1,  and  the  reliahilily  hudget  is  the  same  as  the  caoacity  hudget 
The  revised  network  is  shfiwn  in  Figure  19. 
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Since  node  1  and  4  are  not  stochastic  and  not  capacitated,  they  do  not  need  to  be  represented 
as  arcs.  A  dummy  arc  representing  a  stocha.stic  oi  caparitated  node  i.s  a.ssigned  the  same  number 
as  Its  node  mimlx'r  In  luunbering  arcs,  the  number  I  and  4  are  not  used,  since  1  and  I  are  not. 
repre.sented  as  arcs.  The  remaining  arcs  are  numlrercd  starling  with  .5.  Now.  referring  to  tlie  l•e\  ised 
network  sliown  in  Figure  19,  the  input  riata  can  l>e  prepared  a.s  follows: 


’/.  Arc  Relationship 
arc(s ,5)  . 
arc(s,6) . 
arc(2,8) . 
arc(3,9) . 
arc(5,7) . 
arc(6 ,2) . 
arc(7,.3) . 
arc(8,3) . 
arc(9, to) . 
arc(10,t) . 

y,  Survival  Probabilities 
prob{s,l) 
prob(2,0.t) . 


prob(3,0.2) . 
prob(5,l) . 
prob(6,l) . 
prob(7,0.3). 
prob(8,0.4) . 
prob(9,0.5) . 
probdO,  1) . 

prob(t,l) • 

y.  Capacity 
cap(3, 100) . 
cap(5,») . 
cap(6,*) . 
cap(7,200) . 
cap(8,300) . 
cap(9,400) . 
capClO,*) . 

*/.  Cost  of  Increasing  One  unit  of  Capacity 
cost(3 , 10) . 
cost(7,20) . 
cost(8,30) . 
cost(9,40) . 

*/.  Predetermined  Amount  of  Capacity  Increase 
invest(_ ,6)  . 

'/.  Capacity  Budget  Available 
budget (1000) . 

'/.  Cost  of  Increasing  Reliability  by  0.1 
rcost(3, 10) . 


rcost(7,20) . 
rcost(8,30) . 
rcost(9,40) . 


*/,  Reliability  Budget  Available 
rbudget(lOOO) . 

’/. - end - •/, 

Any  line  that  starts  with  a  %  sign  is  a  comment  line,  and  it  is  ignored  by  the  interpreter. 
Tlie  underscore  (.)  in  ‘invest(-,5) .  ’  denotes  all  coinponenls.  Thus,  ‘invest(.,5) .  ’  denotes  the 
predetermined  amount  of  capacity  increase  for  all  components  is  5  units. 

D.5  Output 

An  e.xample  of  outputl.lp,  containing  paths  and  path  reliabilities,  are  shown  below: 


^  1 3(e  3)c  ift  1 4c  4:  1 4:  ic  4: 1 %  4c 4:  34^  4^  9^  *  4: 4:  4c  4:  4c 

*  Following  is  a  list  of  all  patns  from  "s"  to  "t"  * 

*  of  the  network  described  in  the  input  k.’ata  file.  * 

Pathl;  s  5  7  3  9  10  t 
Reliability:  0.003 

Path2;  s  6  2  8  3  9  10  t 
Reliability:  0.004 

*  - end - ♦ 


'i'lie  rcf,!  of  the  outputs,  containing  mathematical  progfamming  models,  are  in  the  .same 
format  a.'  the  input  formal  of  liadi  oiit|)iit  consists  of  .  Title.  Objectne  Ma.xiinize. 

and  Co  istraiiit.s  .'.ection  .Xii  e.\ampleof  outpufi.lp  conlaining  the  ma.viniiiin  flow  formulation,  is 
shown  below: 


. .Title 

Maximum  Flow  Formulation  2 


.  Objective  Maximize 


. .Constraints 


Arc  3:  fl  +  12  <=  100 
Arc  7:  fl  <=  200 
Arc  8:  12  <=  300 
Arc  9;.  11  +  12  <=  400 
♦ - end - * 

D.6  LP/MIP-S3  Commands 

.Ml  n’Oui-i.-!.  e.xcept  Investment  Strategy  Models  2  and  3,  can  be  .solved  using  either  LP83  or 
MIP83  The  Investment  Strategy  Model  2  can  only  be  solved  by  MIP83,  because  it  requires  integer 
solutions.  The  following  are  some  commands  to  run  LP/MIP-83: 

a)  c  :>  lp83  a:output2 

Find  all  solutions  to  the  lineiir  programming  model  stored  in  ‘output2.1p’  in  ‘a"  drive, 
and  display  the  solutions  on  the  .screen. 

b)  (•  ■>  lp83  a:onlput2  output  a:li.sl 

Sam<-  a-s  a)  above,  e.vrepl  send  the  solutions  to  the  oulpiil  file  nami'd  'list-pm'.  in  'a' 
drive,  'i'he  c.xlension.  ‘.prn’  is  automatically  added. 

e)  c  >  Ip83  a:oulput2  output  a:list  alternate  1 

.Sann;  as  b)  above,  e.xcept  find  oidv  one  solution, 
d)  e  :>  mip83  a.o'ilputt) 


Find  all  .solutions  to  the  mixed  integer  programming  mod<-l  siored  in  out  pul  (5  Ip'  in 
'a'  tirive.  and  display  the  solutions  on  the  .srreen. 


D.7  GINO  Cominands 


Investment  Strategy  Model  3  must  be  solved  using  GINO.  GINO  can  be  run  on  many  dilTerent 
types  of  computer  systems.  The  following  example  is  for  a  computer  running  the  MS-DOS  operating 
svstem: 


c  •>  GINO 
retr  output?. nip 
;go 
<111  it 


(this  command  starts  the  GINO  program) 

(this  command  loads  the  file  created  by  Formula) 
(this  command  tells  GINO  to  solve  the  model) 
(this  command  exits  GINO) 


The  user  should  consult  a  GINO  user’s  manual  for  further  details. 


D.S  Helpful  Comments 

1)  The  program,  FORMULA  has  been  tested  and  successfully  generated  formulations  for 
the  network  containing  70  nodes,  112  arcs,  and  219S  paths.  Since  the  capacity  of  LF/MlP-83  is 
approximately  1200  variables  (paths),  any  problem  bigger  than  the  rapacity  of  LP/M IP-83,  must 
be  solved  using  other  mathematical  programming  packages,  such  as  MINOS  or  SAS.  Of  course 
preparing  an  input  file  for  these  packages  will  be  different  from  that  of  LP/.MIP-S3. 

2)  If  you  want  to  stop  the  execution  (or  if  the  computer  is  hung  up),  jire.ss  ‘control'  and 
'break'  simultaneously.  When  appears,  type  'clear.windows.'  and/or  ‘exit.|)opup.'.  It  will  get 
you  to  the  main  window  of  .Arity /Prolog.  Before  starting  the  inogram  again,  you  must  era.se  the 
datafile  by  typing  'Hestoie.'  Otherwise,  yon  will  gel  erroneous  output 

3)  .Any  (|Ucsiions  about  the  .Arity/Prolog  interpreter  or  general  (|U('stions  about  the  .Ar- 
ity/Prolog.  refer  to  (1). 


Appendix  E.  Formula  Version  3. 0  Source  Code 


/♦============================================================♦/ 

/*  */ 

/*  FORMULA  Version  3.0  */ 

/*  */ 

/*============================================================♦/ 

/*  */ 

/*  This  program  does  the  following  eight  tasks:  */ 

/♦  */ 

/♦  l)  Finds  all  paths  in  the  network  from  source  (s)  to  ♦/ 

/*  sink  (t)  and  calculates  all  path  reliabilities.  */ 

/*  2)  Generates  the  formulation  of  the  Maximum  Flow  through  */ 

/*  the  network.  */ 

/*  3)  Generates  the  formulation  of  the  Lower  Bound  of  the  */ 

/*  Expected  Maximum  Flow.  */ 

/♦  4)  Generates  the  formulation  of  the  Upper  Bound  of  the  */ 

/♦  Expected  Maximum  Flow.  ♦/ 

/*  5)  Generates  the  formulation  of  the  investment  strategy  */ 

/*  model  1 .  ♦/ 

/*  6)  Generates  the  formulation  of  the  investment  strategy  *J 

/*  model  2.  */ 

/*  7)  Generates  the  formulation  of  the  investment  strategy  */ 

/»  model  3.  ♦/ 

/*  8)  Generates  files  used  for  network  reliabity  formulation  */ 

/*  ♦/ 

/♦  The  six  mathematical  programming  models  (2  to  7)  are  ♦/ 

/♦  developed  based  on  arc-path  incidence  matrix  built  from  */ 
/♦  the  description  of  the  network  in  the  input  file.  */ 

/♦  The  network  described  in  the  input  file  must  contain  a  ♦/ 
/♦  single  source  node,  named  's',  and  sink  node,  named  't'.  */ 

/*  All  capacitated  or  stochastic  nodes  must  be  represented  */ 
/♦  as  a  dummy  arc  with  two  nodes.  Refer  to  FORMULA  user’s  */ 
/*  manual  for  details  on  how  to  prepare  the  input  file.  */ 

/*  ♦/ 

/*  The  formulations,  2  thru  6,  generated  from  this  program  ♦/ 

/♦  are  in  the  same  format  as  the  input  data  file  of  LP/MIP  83  */ 
/*  mathematical  programming  package.  The  formulation  7  is  in  */ 
/♦  the  same  format  as  the  input  data  file  of  GINO  mathematical*/ 
/*  programming  package.  Thus  the  ouputs  2  thru  6  can  be  used  */ 
/*  as  an  input  to  LP/MIP  83  and  the  output  7  can  be  used  as  ♦/ 
/*  an  input  to  GINO  for  further  analysis.  */ 

/*  */ 

/♦ - */ 

/*  */ 

/»  DATE:  1  October,  1991  ♦/ 


/♦  FILENAME:  FORMULAS. ARI  ♦/ 
/♦  */ 
/♦  This  program  was  written  in  Prolog  language  using  the  */ 
/*  Arity/Prolog  Version  5.0.  ♦/ 

/*  */ 
/♦============================================================♦/ 


/*  Start  the  program  by  typing  ’go.’  */ 


go 

f ileerrors(_,off ) , 
windows , 

open_input_dataf lie , 

start_progrcun. 

go. 


'i.  Turn  off  system  file  error  message. 
’/.  Call  windows  to  display  the 
*/.  introduction  screen. 

*/.  Get  the  name  of  input  file  and 
'/.  consult  it. 


start_program 

get_selection_number (Selection) , 

*/,  Ask  user  what  need  to  be  done. 

(  Selection  =  9,  '/,  If  '9’is  selected,  exit, 

clear .windows, ! 

;  '/.  Otherwise, 

nl,  */,  Where  should  output  be  sent  ’ 

get.where.to.send.output (Where) , 

execute.request (Selection, Where)  ’/,  Execute  the  request. 

). 


execute.request (Selection .Where)  ;  - 
(  Selection  =  1, 
sear ch.paths (Where) , ! 

I 

Selection  >=  2, 

Selection  =<  4, 

perf  ormance.f ormulat ions (Selection, Where) 

* 

Selection  >=  5, 

Selection  =<  6, 

Ip.investraent.f ormulat ions (Select ion, Where) 

» 

Selection  =  7, 

nip. investment.f ormulat ion(Select ion, Where) 

» 

rel.file.formulation (Select ion, Where) 

). 

get_run_again_reply(Reply) ,  */.  Run  the  program  again  ? 

els,  '/.  Clear  screen. 

(  Where  =  1 ,  */,  If  the  output  was  sent  to 


true,  ! 

> 

exit_popup 

). 

want_more( Reply) . 

want_nore( Reply) 

(  Reply  =  121, 
removeallh (matrix) , 
start.prograni , ! 


y,  the  screen,  do  nothing, 
y.  Otherwise, 

y,  delete  popup  window  'done' . 


y.  Reply  is  'y'  (ASCII  121), 

%  delete  hash  table  'matrix',  and 
y.  run  program  again. 


clear_windows ,  Otherwise,  exit, 

nl 

),!. 


/*  ‘search_path'  initiates  search  to  find  all  paths  in  the  ♦/ 
/*  network  and  calculates  path  reliabilities.  ♦/ 


search_paths(Where) 

ctr_set(l ,  1)  ,  y.  Initialize  counter  one  to  1 

y.  to  keep  track  of  path  number. 

(  Where  =  1 ,  */.  When  Where  =  1 ,  output  is  displayed 

y.  on  the  monitor  screen. 

continue_find_paths 


y.  'Executing'  message  is  displayed  on 
y.  the  screen  while  the  output  is  being 
executing.message,  '/,  sent  to  the  'outputl.lp'  file. 

stdout( 'outputl .Ip' ,continue_f ind_paths) , 

exit_popup,  y.  Delete  popup  window  'executing', 

done.rissaged)  */.  Display  'done'  message. 


continue.! ind_paths 
nl, 

write( '♦♦♦♦**♦**•***♦******♦•*»*♦*•*•♦•*»*♦♦•*♦»*♦*♦•*•*••*•'), 

nl. 

urite('*  Following  is  a  list  of  all  paths  from  "s"  to  "t" 

•’>. 

nl, 

write(’*  of  the  netwoik  described  in  the  input  data  file. 

*’). 

nl . 


I  V^ 


write ( ’ ' ) , 
nl,nl,nl, 
f ind_paths(s ,t) , 
nl.nl, 

writeC  ’♦ - end - *')  i 

nl,nl,nl,nl. 


/* - */ 

find_paths (Start, Goal)  ’/I  Find  all  paths  using 

'/,  depth-first 
'/,  search  method. 

depth_first( [Start] .Goal, Path), 

f  ind_reliability(Path,Rel) ,  '/,  Calculates  the  reliability 

of  a  path. 

ctr_inc(l  ,Pnbr)  ,  '/,  Get  current  path  number  and 

*/,  increment  counter  one  by  1 . 

display_outputs(Path,Pnbr,Rel) , 

fail.  ’/,  Go  on  to  find  next  path  until 

7,  there  isn't  any  to  be  searched. 

find_paths(_,_) . 


depth_first (Path, Goal, Path)  7.  Path  is  found  if  it 

7i  satisfies 

satisfies  (Path,  Goal) .  7.  Goal. 

depth_f irst( [X I  Rest] .Goal, Path) 

arc(X,Y),  7.  Get  next  arc. 

not  member(Y,  [XiRest]) ,  7.  Prevents  cycles. 

depth_first([Y,XlRest]  .Goal, Path)  .  Recursive  call. 

satisfies( [Goal 1_] .Goal) .  7.  A  path  is  found  if  the  head  of 

7.  a  list  describing  Path  matches 
7i  with  Goal  (t). 

member(X , [X iTail] ) . 
member (X , [Head  I  Tail] )  : - 
member (X, Tail) . 


f ind_reliability(  []  ,  1)  !.  Reliability  of  an  empty  list  is 

7.  1. 

find_reliability([Arc|Rest] ,Rel) 

rind_reliability(Rest .RelRest) ,  %  Calculate  Rel  recursively. 

prob(Arc,Pb) ,  '/.  Get  survival  probability  of 

7.  Arc. 


Rel  IS  Pb  ♦  RelRest ., 


display_outputs(Path,Pnbr ,Rel) 

print _path(Path, Pnbr) ,  */,  Print  path  and 

print_reliability(Rel) .  */.  reliability. 


print_path(Path,Pnbr) 
write(’  Path  ’), 
write (Pnbr) , 
writeC:  '), 
write_reverse(Path) . 


print_reliability(Rel) 
nl , 

write(’  Reliability:  ’), 
write(Rel) ,  nl,  nl. 


write_reverse([])  !.  */,  Prints  path  from  ’s'  to  ’t’ 

write_reverse([ArclRest]) 
write_reverse(Rest) , 
write(Arc),  write('  ’). 

/*  ‘performance.formulations’  generates  the  formulations  of  */ 

/*  maximum  flow,  lower  bound  of  expected  maximum  flow,  */ 

/♦  and  upper  bound  of  expected  maximum  flow.  ♦/ 

performance_forraulat ions (Select ion, Where) 

(  Where  =  1 ,  %  Display  output  on  the  screen 

f  ind_formulatisyns(Selection) 

t 

executing_message,  */,  Display  output  sending 

y,  message . 

(  Selection  =  2, 

stdout(  ’output2.1p’ ,find_formulations(Selection)) 

Selection  =  3, 

stdout ( ’ outputs . Ip ’ , f ind_f ormulat ions (Selection) ) 
stdout ( ’ output4 . Ip ’ , f ind_f ormulat ions (Selection) ) 

), 

exit_popup,  7.  Delete  popup  window 

'/,  ’executing’. 

’/,  Display  ’done’  message. 


done_message (Select ion) 


). 

f ind_formulations(Selection) 
title(Selectioii) , 
objective(Selection) , 
constraints  (Sej.ection) , 
nl , nl , 

write(’* - end - ♦’) , 

nl,nl,nl,nl. 


/if - +/ 

title(Selection)  Print  title  of  the 

’/,  formulation. 

writeC  ...Title’), 
nl.nl, 

(  Selection  =  2, 

writeC  Maximum  Flow  Formulation’) 

I 

Selection  =  3, 

write(’  Lower  Bound  Formulation’) 

f 

urite(’  Upper  Bound  Formulation’) 

). 

/♦ - */ 

objective(Selection)  */.  Get  objective  function 

nl,nl, 

write(’  ..Objective  Maximize’), 
nl ,nl , 

ctr_set(l ,  1) ,  '/,  Counter  one  generates  path  number. 

ctr_set(3, 1) ,  '/,  Initialize  counter  three  to  1 

'/,  to  keep  track  of  how  many  terms 

'/,  are  printed  in  a  line  in  the  objective 

y.  function. 

find_objective(s,t, Selection) . 


find_objectiv3 (Start .Goal .Selection)  : - 
depth_f irst ( [Start] , Goal , Path) , 
f ind_reliability(Path,Rel) , 

ctr_inc(l  ,Pnbr) ,  ’/.  Get  current  path  number  and 

%  increment  the  counter  one  by 
%  one. 

print_objective(Pnbr,Rel .Selection) , 

make_arc_path_matrix(Path,Pnbr) ,  7,  .'lake  arc-path  incidence 

y.  matrix. 

fail . 

f ind_objective(_,_ ,_) . 


i;js 


print_objective(Pnbr,Rel .Selection)  , 

tab(l) , 

(  Pnbr  =  1 

I 

Mrite(’+  ') 

). 

(  ctr_inc(3, Value) ,  */,  Get  current  variable  number  and 

'/,  increment  the  counter  three  by  1 . 

Value  >  4, 

Mod_Value  is  Value  mod  4,  */,  If  the  remainder  of  Value 

Mod_Value  =  1 ,  7,  divided  by  4  is  1 ,  then  skip 

nl,  7,  to  next  line. 

writeC  ') 


true 

). 

(  Selection  =  3, 
write(Rel) 

I 

true 

). 

write('  f), 
write(Pnbr) ,  ! . 


7.  If  finding  lower  bound  (Sel  = 
7.  3) , 

7i  print  reliability. 

7.  Otherwise,  do  nothing. 

7.  Print  path  flow  variable. 


/* - */ 

make_arc_path_raatrix( [] ,_). 

make_arc_path_matrix(Arc_List,Pnbr)  7.  Separate  the  elements, 

7i  arcs,  in  the  path  and 
7.  store  each  arc  with 
7.  associated  path  number 
7.  to  form  arc-path 
7.  incidence 

get_arc(Arc_List,Arc,Rem_List) ,  matrix. 

cap( Arc .Capacity) , 

(  number(Capacity) , 

recordhCmatrix, Arc ,arc_path_matrix(Arc ,Pnbr) ) 

» 

true 

), 

make_arc_path_matrix(Rem_List,Pnbr) ,  ! . 


get_arc( [Head! [HlRest]] ,Head,Rem_List) 

Head  \=  's’,  7.  Ignore  's'  and  ’t’ 

Head  \=  ’t’ , 

(  Rest  =  []  , 


Rem_List  =  [Hi  Rest] 

).  !. 

get_arc(  [Head  1  Rest]  ,Arc,Rem_List) 

get_arc(Rest,Arc.Rem_List) .  */.  Get  one  arc  at  a  time 

'U  that  is  in  the  path. 


/♦ 


♦/ 


y.  Get  constraints 
function. 


y.  Initialize  to  empty 
y.  string. 

y.  Sort  Arc_List  in  ascending 
y.  order. 

y.  Hake  sorted  arc_list  into 
arc  array. 


y.  Find  all  arcs  that  are  in 
y.  the 

y.  arc-path  incidence  matrix. 
retrieveh(matrix,_ ,arc_path_matrix(AN,_)) , 
int_text(AK,  Arc_String) , 

['  concatC [$0000$ ,  Arc.String,  $,$],  NeB_Arc_String) , 
retract(init_string(Init)) , 

(  string_search(New_Arc_String,Init,_),  ’/.  Do  not  include 

y.  the 

asserta(init_string(Init))  ’/.  duplicate  arc 

y.  string. 

f 

concat(New_Arc_String,  Init,  hew_String),  */,  Append  the 

y.  new 

asserta(init_string(New_String))  '/,  string. 

) 

!]. 

fail . 


constraints(Selection) 

nl,  nl, 

write(’  ..Constraints’), 
asserta(init_string($$)) , 

f ind_all_arc_lists(Arc_List) , 
sort(Arc_List,Sor) , 

make_arc_array(Sor) , 

generate.constraints (Selection) . 

f ind_all_arc_lists(_) 


f ind_all_arc_lists(Final) 

retract ( init_str ing(Hain_Str ing) ) , 
string_length(Main_String,  Length)  , 
dec(Length,Pos) , 

substr ing(Main_String , 0 , Pos , New_String) . 
concat([$[$,  New_String,  $]$]  ,  Output_String) , 
string_term(Output_String,  Final),  !.  ’/.  Change  string  into 


IK) 


■/,  a  list. 


/♦ - 

make_arc_array  (  []  )  .  Separate  the  arc_list  and 

make_arc_array  (  [Anbr  I  Rest]  )  */,  put  it  into  an  array  format. 

assertz(arc_array(Anbr)) , 
make_arc_array(Rest) . 

/♦ - i^i 

generate_constraints (Selection) 
retract (arc_array( Anbr)) , 

[!  cap(Anbr .Capacity) , 

generate_constraint_inequality(Anbr) , 
write('  ’), 
write(’<=  ’), 
writeC  ’), 

(  Selection  =  4, 
prob(Anbr ,Pb) , 

Expected_Cap  is  Capacity  *  Pb, 
write (Expected_Cap) 

% 

write(Capacity) 

) 

fail. 

generate_constraints(_) . 

generate_constraint_inequality (Anbr)  : - 
nl,  nl, 

write(’  Arc  '), 
write (Anbr) , 
write(':  ’), 

ctr_set(10 ,0) ,  */,  First  time  flag;  this  is  used  to 

*/,  control  when  to  print  ’+’  in 
'/,  the  constraint  equation. 

ctr_set(4, 1) ,  */,  Initialize  counter  four  to  1; 

y,  this  counter  keeps  track  of 
’/,  how  many  terras  are  printed  in 
y,  the  constraint  equation. 
output_paths_containing_ Anbr (Anbr) . 

output_paths_containing_Anbr (Anbr) 

removeh(matrix , Anbr ,arc_path_matr IX (Anbr ,Pnbr)) , 

['  (  ctr_inc(10,Flag) , 

Flag  =  0 


y.  If  first  term,  don't  print  ’  + 


write(’  +  ') 


). 

(  ctr_inc(4, Value) ,  */,  Get  current  term  number  and 

%  increment  the  counter  four  by  1 

Value  >  7, 

Mod_Value  is  Value  mod  7, 

Mod_Value  =  1 , 

nl,  writeC  ') 

true 

). 

writeC’f ’), 
write(Pnbr) 

!]. 

fail. 

output_paths_containing_Anbr (_) . 

/*  ‘lp_investment_formulations’  generates  formulations  of  */ 

/*  investment  strategy  model  1  and  2  to  improve  the  */ 

/♦  lower  bound.  */ 

/*tt************************************************^*********/ 


lp_investment .formulations (Select ion, Where) 

(  Where  =  1 , 

get. investment .model (Select ion) 

executing.message , 

(  Selection  =  5, 

stdout ( ’ outputs . Ip’ , get.investment.model (Selection) ) 
stdout ( ’outputs . Ip’ .get.investment.model (Select ion)) 

). 

exit. popup, 

done.raessage (Select ion) 

). 

get. in vestment .model (Select ion) 
invest.model.title(Selection) , 
invest. model. objective (Select ion) , 
invest.model.constraints (Selection) , 
nl,  nl, 

write(  ’  * - end - *  ’ ) , 

nl,nl,nl,nl. 

invest_raodel_title(Selection) 
write( ’  . .Title’) , 
nl ,nl , 


(  Selection  =  6, 

Hrite(’  Investment  Strategy  Model  1’) 

t 

write('  Investment  Strategy  Model  2’) 

). 

invest_model_objective( Select ion) 
nl,  nl, 

write(’  . .Objective  Maximize’ ) , 
nl,  nl, 

ctr_set(l,l),  y.  path  number 

ctr_set(3, 1)  ,  */.  no.  of  terms  in  a  line 

f ind_invest_model_objective(s ,t, Selection) . 

find_invest_model_objective (Start , Goal, _) 
depth.f irst ( [Start] , Goal , Path) , 
f ind_reliability(Path,Rel) , 
ctr_inc(l ,Pnbr) , 

output_ invest_model_ob j  ect ive_var iables ( Pnbr , Rel ) , 

make_ar c_path_matrix (Path , Pnbr) , 

fail. 

f ind_invest_model_objective (_ , _ , Selection)  :  - 
asserta(init_invest_string($$)) , 
get_investment_variables(Invest_Vars) , 
sort(Invest_Vars,Sorted_Vars) , 
make_cap_array(Sorted_Vars) , 
nl, 

ctr_set(2,l) , 

ctr_set(10,0) ,  '/.  First  time  flag. 

(  Selection  =  5 

I 

write(’  [  ’) 

), 

output. investment_variables (Select ion) , 

(  Selection  =  5 

f 

writeC  ]  ’) 

). 

f ind_invest_model_objective(_ ,_,_) . 

make_cap_array(  □ ) . 
make_cap_array([AnbrlRest]) 
assertz(cap_array(Anbr)) , 
make. cap.array (Rest) . 


output. invest.model. objective. variables (Pnbr ,R''l) 
write(’  ’), 
write(Rel) , 


ll.i 


»rite('  f’), 
write(Pnbr) , 
write(’  +’), 

(  ctr_inc(3, Value) , 
Mod_Value  is  Value  mod  4, 
Mod_Value  =  0, 
nl 

f 

true 

).  !. 


get_investment_vaxiables(_) 
cap( AN, Capacity) , 

[!  (  not  number (Capacity) 

f 

int_text(AN,  Arc.String) , 

concat([$0000$,  Arc_String,  $,$],  New_Arc_String) , 
retract(init_invest_string(Init)) , 
concat(New_Arc_String,  Init,  New_String) , 
asserta(init_invest_string(NeH_String)) 

) 

!3. 

fail. 


get .investment. variables (Final) 

retract (init.invest_string(Main_String)) , 
string.length(Main_String,  Length) , 
dec(Length,Pos) , 

substring(Main. String , 0 , Pos , New.Str ing) , 
concat([$[$,  New.String,  $]$] ,  Output.String) , 
string.term(Output_String,  Final), 


output_investment.variables(Selection)  : - 

cap_array(Anbr) , 

[!  (  ctr_inc(10,Flag) , 

Flag  =  0 

writeC  +') 

), 

(  ctr. inc(2, Value) , 

Value  >  7, 

Mod.Value  is  Value  mod  7, 
Hod.Value  =  1 , 
nl 

f 

true 


I  II 


) 


(  Selection  =  5, 
write(’  0  d') 

* 

write('  0  g’) 

) 

!], 

Hrite(Anbr) , 
fail. 

output_investment_variables(_) . 

/♦ - ♦/ 


invest _model_constraints (Selection) 
nl,  nl, 

write('  ..Constraints'), 

asserta(init_string($$)) , 

f ind_all_arc_lists(Arc_List) , 

sort(Arc_List,Sor) , 

niake_arc_array(Sor) , 

generate_arc_constraints (Selection) , 

ctr_set(l0,0) ,  •/,  counter  for  budget  term 

nl,  nl, 

write(’  Budget:  '), 

generat e_budget_constraint (Selection) . 


generate_arc_constraints(Selection) 
retract(arc_array(Anbr)) , 

[!  cap(Anbr .Capacity) , 

generate_constraint_inequality(Anbr) , 
(  Selection  =  5, 
write( ’  -  d’ ) 

write( ’  -  ’ ) , 
invest(Anbr .Amount) , 
write (Amount) , 
write(’  g’) 

). 

write(Anbr) , 
write(’  ’), 
write(’<=  '), 
writeC  ’), 
write(Capacity) 

!]. 

fail . 


generate_arc_constraints(_) . 


generate _budget_consi:-aint (Select ion) 
retract ( cap_array ( Anbr ) ) , 

['  cost(Anbr ,Unit_cost) , 

(  Selection  =  5, 

Cost  is  Unit_cost 

I 

invest (Anbr .Amount) , 

Cost  is  Unit_cost  *  Amount 

). 

pr int_budget_t erms ( Anbr , Cost , Select ion) 

!]. 

fail. 

generate_budget_constraint(_) 
ctr_set(5, 1) , 
budget (Budget) , 
write('  ’), 
writeC  <=  ’), 
write(Budget) . 


print_budget_t erms (Anbr , Cost , Selection)  :  - 
(  ctr_inc(10,Flag) , 

Flag  =  0 

I 

write(’  +  ’) 

). 

(  ctr_inc(5, Value) , 

Value  >  5, 

Mod_Value  is  Value  mod  5, 

Mod_Value  =  1 , 

nl,  writc(’  ') 

true 

). 

write(Cost) , 

(  Selection  =  5, 

«rite('  d’) 

t 

write('  g’) 

). 

write(Anbr) . 

/*  ’nlp_investment_formulation'  generates  formulation  of  ♦/ 
/*  investment  strategy  model  3.  */ 

/*4rt*]^*#«**^j|E*4E:»4:#****#«»*#**4(*^%)t[*^4t*4(******«***%*4(*«**«***4t/ 


nlp_investment_formulat ion (Select ion, Where) 


(  Where  =  1 , 
begin_model_building 

I 

executing_message, 

stdout(' output?. nip’ ,begin_model_building) , 
exit_popup, 

done_message (Select ion) 

). 

begin_model_’  -ilding 
nl,  nl,  nl, 
write ( ’MODEL:  ’),  nl, 
invest3_objective,  nl, 
invest3_constraints , 
writeC ’LEAVE’), 
nl,nl,nl. 

/♦ —  Objective  function  — */ 

invest3_objective 
write(’MAX=  '), 

ctr_set(l,l) ,  y.  Counter  one  generates  path  niunber. 
ctr_set(3, 1) ,  '/,  Initialize  counter  three  to  1 

'/,  to  keep  track  of  how  many  terms 

*/.  are  printed  in  a  line  in  the  objective 

'U  function. 

find_invest3_objective(s,t) , 
write(’  ;'). 


f ind_invest3_objective(Stcirt ,Goal) 
depth_f ir St ( [Start] , Goal , Path) , 

ctr_inc(l  .PathNmbr) ,  Get  current  path  number 

7.  and 

7,  increment  the  counter  one  by 
7,  one. 

print_invest3_objective( PathNmbr) , 

raake_arc_path_matr IX (Path, PathNmbr ) ,  7,  Hake  arc-path  incidence 

7.  matrix. 

fail. 


f ind_invest3_objective(_ ,_) . 

/* - i,/ 

print_invest3_objective(PathNmbr)  : - 
(  PathNmbr  =  1 

I 

write(’  +  ’) 

). 


(  ctr_inc(3, Value) ,  '/,  Get  current  variable  number  and 

'/.  increment  the  counter  three  by  1. 

Value  >  5, 

Mod_Value  is  Value  mod  5,  '/.  If  the  remainder  of  Value 

Mod_Value  =  1 ,  ’/,  divided  by  4  is  1 ,  then  skip 

nl,  */,  to  next  line. 

writeC  ') 

I 

true 

). 

write(’R') , 

Mrite(PathNmbr) , 

write(’  *  F'),  ’/.  Print  path  flow  variable. 

write(PathNmbr) ,  ! . 

/*  constraint  functions  */ 

invest3_constraints  */,  Get  constraints 

7.  function. 

asserta(init_string($$)) ,  %  Initialize  to  empty 

7,  string. 

f ind_all_arc_lists(Arc_List) , 

sort(Arc_List,Sor) ,  7.  Sort  Arc_List  in  ascending 

7i  order. 

make_arc_array(Sor) ,  7.  Hake  sorted  arc.list  into 

7.  arc  array. 

ctr_set(l,l) ,  7.  Counter  1  contains  pathnumber. 

generate_rj .descriptions , 
generate_arc_prob_constraints , 

ctr_set(9,0) ,  7.  Flag  counter  to  control  line 

7.  feed. 

generate_path_f low.constraints , 

ctr_set(10,0) ,  7.  Flag  counter  to  control  +  sign. 

generate_rel_budget_constraints, 

write('END'),  nl, 

generate_x_nonnegativity , 

ctr_set(  1 , 1)  ,  Path  number  counter 

generate.! .nonnegativity . 

/♦ - */ 

generate.! j.descriptions 
depth.first( [s] ,t,Path) , 

[!  ctr.incd  .PathNmbr) , 
writeC ’R’ ) , 
write(PathNmbr) , 
write( '  =  ’) , 
sort(Path .SortedPath) , 

ctr_set(7 , 1) ,  71  Counter  to  control  the  number  of  terms. 


write_rhs_of_equality(SortedPath) , 
write(’ ; , 
nl 

!]. 

fail. 

generate_r j  _descr ipt ions . 

write_rhs_of_equality ( [] ) . 

write_rhs_of _equality ( [Arc  1  Rest] )  :  - 
(  not  num^er(Arc) 

(  ctr_inc(7, Value) , 

Value  >  3, 

Mod_Vaiue  is  Value  mod  3, 
Mod.Value  =  1, 
nl,  writeC  ') 

t 

true 

), 

write(’(  ’), 
prob( Arc, Probability) , 
write(Probability) , 
write(’  +  .1  ♦  X’), 
writeCArc) , 
writeC'  )  '), 

(  Rest  ==  [s,t] 

uriteC*  ') 

) 

). 

write_rhs_of_equality{Rest) . 


/♦ - • 

generate_arc_prob_constraints  :  - 
prob(ArcHmbr, Probability) , 

['  (  not  number (ArcNmbr) 

» 

write(Probability) , 
writeC  +  .1  *  X'). 
write(ArcKmbr) , 
write( '  <  1  ;  ’) , 
nl 

) 

•]. 

fail . 


generate_arc_prob_ccnstraints . 


generate_path_f low_constraints  :  - 
retract (arc_array(ArcNiflbr) ) , 

[!  capCArcNmbr .Capacity) , 

generate_path_flow_constraint_inequality(ArcNmbr) , 

writeC  ’), 

write('<  ’), 

wr 1 -e(Capacity) , 

writeC  ;’) 

!]. 

fail. 

generate_path_flow_constraints  nl. 

generate_path_f low_constraint_inequality( ArcSmbr)  : - 
(  ctr_inc(9,Flag) , 

Flag  =  0 

I 

nl 

). 

ctr_set(10,0) ,  ’/,  First  time  flag;  this  is  used  to 

*/,  control  when  to  print  '  +  ’  in 
*/,  the  constraint  equation. 

ctr_set(4, 1) ,  '/,  Initialize  counter  four  to  I  ' 

'/.  this  counter  keeps  track  of 
how  many  terras  are  printed  in 
’/.  the  constraint  equation. 
output_paths_containing_ArcNmbr(ArcNmbr) . 


output_paths_containing_ArcKmbr( ArcNrabr)  :  - 

reraoveh(raatrix,Arctimbr ,arc_path_matrix(ArcNmbr .PathNmbr)) , 

[!  (  ctr_inc(10,Flag) , 

Flag  =  0  If  first  term,  don’t  print  ’+’. 

» 

write(’  +  ’) 

). 

(  ctr_inc(4, Value)  ,  7.  Get  current  terra  nuraber  and 

7,  increment  the  counter  four  by  1 

Value  >  9, 

Mod_Value  is  Value  mod  9, 

Hod.Value  =  1, 
nl 

true 

). 

write( 'F') , 
write(PathNrabr) 

!]. 


output_paths_containing_ArcNmbr(_) . 
- */ 

generate_rel_budget_constraints  ’/,  probably  can  revise 

*/.  this:  I  dont  think 
*/.  there 

*/,  is  any  need  for  using 

y,  prob-array  from 

*/.  get-invest3-variables 

prob(ArcNmbr ,_) , 

[!  (  not  number (ArcNmbr) 

rcost(ArcNmbr ,Unit_cost) , 
print_rel_budget_terras  (ArcNir.br  ,Unit_cost) 

) 

!]. 

fail. 

generate_rel_budget_constraints  : - 
ctr_set(6, 1) , 
rbudget(Budget) , 
writeC’  ’), 
writeC  <  '), 
write(Budget) , 
writeC’ 
nl. 


print_rel_budget_terins (ArcNmbr .Cost) 
(  ctr_inc(lO,Flag) . 

Flag  =  0 

» 

write(’  +  ’) 

). 

(  ctr_inc(5 , Value) , 

Value  >  S, 

Hod_Value  is  Value  mod  S, 
Mod_Value  =  1 , 
nl 

i 

true 

)  I 

write(Cost) , 
writeC  ♦  X’) , 
write(ArcNmbr) . 


/* 


*/ 


generate_x_nonnegativity 


prob(ArcNmbr, Probability) , 
[!  (  not  number (ArcNmbr) 


write('SLB  X'). 
write(ArcNmbr) , 
writeC'  0  '), 
nl 

) 

!]. 

fail. 

generate_x_nonnegativity . 

/♦ - ♦/ 

generate_f_nonnegativity 
depth_f irst ( [s] , t , _ ) , 

[!  ctr_inc{l .PathNmbr) , 
writeC'SLB  F'), 
urite(PathNmbr) , 
writeC  0  ’), 
nl 

!]. 

fail. 

generate_f_nonnegativity . 

/*  ’rel_f ile_formulation’  generates  4  files  of  inputs  used  ♦/ 
/♦in  formulating  Reliability  models.  ♦/ 

rel_file_formulation(Selection, Where) 

(  Where  =  1, 
f ile_building 

I 

executing_message , 
stdoutCpath.f '  ,  f  ile_building)  , 
stdout( 'prob.f ’ ,  get_arc_prob)  , 
stdoutC 'cap.f ’ ,  get_arc_cap) , 
stdoutC ’net.top’ ,net_top) , 
exit_popup, 

done_message (Select ion) 

). 

file_building: - 

get_arc_f actors . 


/♦ 


•/ 


get_arc_factors 


asserta(init_string($$)) , 
f ind_all_arc_lists(Arc_List) , 
sort(Arc_List,Sor) , 
raake_arc_array(Sor) , 
ctr_set(l ,  1) , 
get_ord_paths . 


/* - 

get_ord_paths 

depth_f irst (  [s] , t , Path) , 

[!  ctr_inc(l,PathNmbr), 
write (PathNmbr) , 
write(’  ’), 

sort (Path, SortedPath) , 
write_rhs_of_path(SortedPath) , 
nl 

!], 

fail. 

get_ord_paths. 

write_rhs_of _path(  □ ) . 

write_rhs_of_path(CArc|Rest]) 

(  not  number(Arc) 

prob(Arc .Probability) , 
write(’  '), 
write(Arc) , 
write(’  ’) . 

(  Rest  ==  [s,t] 


write( ’ ’ ) 

) 

), 


write_rhs_of_path(Rest) . 

/♦ - 

get_arc_prob 

probCArcNmbr .Probability) , 

['  (not  number(ArcHmbr) 

write(ArcNrabr) , 
writeC  ’). 
write(Probability) , 


nl 

) 

!], 

fail. 

get_arc_prob. 

/♦ - */ 

get_arc_cap 

cap(ArcNmbr .Capacity) , 

[!  (  not  number (Capacity) 

» 

write(ArcNmbr) , 
writeC  ’), 
write(Capacity) , 
nl 
) 

!]. 

fail . 

get_arc_cap. 

/* - ♦/ 

get_arc_inv_cost 

cost(ArcNmbr .Cost) . 

write(Cost) , 

nl. 

fail. 

get_arc_\nv_cost . 

/* - */ 

net_top 
arc(From.To) . 

[!(  not  number (From) ; not  number (To) 

f 

urite(From) . 
write('  '). 
write(To) . 
nl 
) 

!]. 

fail . 

net_top. 

/* - ♦/ 


l.ll 


reconsult ( ’ vindows3 . ar i ’ ) . 


/^**^:^:*iti:t:t**************************************************t****/ 


/*  */ 

/*  WIND0WS3.ARI  */ 

/*  */ 

/*  This  file  contains  windows  to  conununicate  with  the  user.  */ 

/*  */ 

/**^lt*******************************************’¥**>^**i>:*t********/ 

/♦ - 

/*  Introduction  Screen  ♦/ 

/♦ - 


windows  : - 
els, 

define_window(prograin_title, ’ ’ , (23,0) , (23,79) ,(91,0)), 
define_window( intro, ’ ’ , (0,0) , (22,79) , (26,0)) , 
current_window(_,prograM_title) , 
tmove(0, 12) , 

write('  FORMULA  Version  3.0  AFIT  October,  1991’), 

current_window(_, intro) , 

define_intro_window. 

def ine_intro_window 
nl.nl, 
tab(17), 

write  ( '*♦****♦•**********'•'***♦**»♦♦♦***♦*****♦  ’ ) , 
nl,tab(l7) , 

write(’*  FORMULA  Ver  3.0  ♦'), 

nl,tab(17) , 

write (’♦*♦****♦♦*♦****♦*♦♦******♦♦♦*♦*+*♦**♦**’), 
nl ,nl ,nl , 
tab(ll) , 

write(’This  program  finds  all  paths  in  the  network  irom  ’), 
nl,tab(ll) , 

write( 'source  to  sink  and  calculates  all  paths  reliabilities.’), 
nl,tab(il) , 

write(’It  also  generates  six  mathamatical  prograumning  ’), 
nl,tab(ll) , 

write( ’models  that  will  assist  in  analyzing  the  performance  ’), 
nl,tab(ll) , 

write(’of  the  network  and  in  determining  the  investment  ’), 
nl,tab(ll) , 

wiite(’ strategy  to  improve  the  performance  of  the  network.’), 
nl,tab(ll) , 

write( ’These  models  are  developed  based  on  the  arc-path  ’), 
nl,tab(ll) , 

write( ’ incidence  matrix  built  from  the  description  of  the  ’), 
nl,tab(ll) , 

write( ’network  in  the  '■nput  file.  ’), 
nl,tab(ll) , 

write(’  Finally,  it  will  generate  tne  required  files  used  ’), 


lof. 


nl,tab(ll) , 

writeC'in  formulating  network  reliability  cinalysis.  ’), 
nl,nl,tab(ll) , 

writeC 'PLEASE  make  sure  the  input  file  contains  correct’), 
nl,tab(ll) , 

write( 'description  of  the  network  to  be  analyzed.’), 
nl,nl,tab(23) , 

write(’ Press  any  key  to  continue.  '), 
getO(_) , 
els . 


/♦ - ♦/ 

/♦  Asks  for  the  input  file  name.  If  the  file  name  is  not  found,  */ 
/*  the  program  prints  the  error  message;  otherwise,  consults  */ 

/♦  the  input  file.  ♦/ 

jif - ♦/ 

open_input_datafile 

create_popup(queryl ,(7 ,20) , (14,60) , (62,-62) ) , 
write(’  Please  type  in  your  input  file  name.  ’), 


tmove(3,2) , 
write(’  >  ’), 
read_line(0,File) , 

( 

consult_f ile(File), 
exit.popup 

% 

display _f ilename_error , 
exit.popup, 
open_input_dataf il« 

).. 

consult.f ile(File) 
stdin(File,_) , 
consult(File) . 

display.f ilename_error 

create_popup(errorl ,(16,20) , (21 ,60) , (79,-79)) . 
write('  Error;  File  not  found.  ’), 
put(7) , 
nl,  nl, 

write(’  Type  in  any  key  to  continue  or  ’), 
nl, 

write(’  press  RETURN  to  exit.  '), 
get0( Reply) , 

(  Reply  =  13, 
exit_popup, 
exit_popup, 
clear_windows 


exit_popup 

). 


/+ - */ 

/*  Ask  user  what  to  do.  */ 

fit - itf 


get_selection_number (Selection)  :  - 

create_popup(query2, (3, 12) , (19,68) , (62,-62)) , 
tmoved ,  16) , 

write ('How  may  I  help  you’'), 
tmove(4,2) , 

write(’l.  Find  all  paths  and  calculate  path  reliabilities.'), 
tmove(S ,2) , 

write('2.  Generate  the  Maximum  Flow  Formulation.'), 
tmove(6,2) , 

write('3.  Generate  the  Lower  Bound  Formulation.  '), 
tmove(7,2) , 

write('4.  Generate  the  Upper  Bound  Formulation.  ’), 
tmove(8,2) , 

write('5.  Generate  the  Investment  Strategy  Model  1.  '), 
tmove(9 ,2) , 

write('6.  Generate  the  Investment  Strategy  Model  2.  '), 
tmove(10,2) , 

write('7.  Generate  the  Investment  Strategy  Model  3.  '), 
tmove(ll,2) , 

write('8.  Generate  Reliability  Files.  ’), 
tmove(12,2) , 
write('9.  Exit'), 
tmove(13,18) , 

write ('Type  in  number  >  '), 

getO(Choice) ,  7.  The  selection  chosen  is  in  ASCII  code, 

exit_popup,  7,  that  is  one  is  represented  as  49,  two 

Sel_Nbr  is  Choice  -  48,  7,  represented  as  50,  etc.  Thus,  48  is 

(  Sel.Nbr  >=  1 ,  7,  substracted  to  make  it  back  to  regular 

Sel.Nbr  =<  9,  7.  arabic  number. 

Selection  =  Sel.,Nbr 

put(7) , 

get _s elect ion_nurober (Selection) 

). 


/♦ - itf 

I*  Asks  user  where  to  display  the  output.  ♦/ 

/* - „! 


get_where_to..send_output(Where)  : - 


create_popup(query3, (6,20) , (16,60) , (62,-62)) , 
tmoved  ,8) , 

write ('Where  do  you  want  the’), 
tinove(2,8)  , 

write( 'output  displayed  ?’), 
tmove(4,ll) , 
write('l.  Screen’), 
tmove(6, 11) , 
write(’2.  File’), 
tmove(8,8) , 

write(’Type  in  Number  >  ’), 

getO(Choice) , 

exit_popup, 

Sel_Nbr  is  Choice  -  48, 

(  Sel.Nbr  >=  1, 

Sel.Nbr  =<  2, 

Where  =  Sel.Nbr 

I 

put (7) , 

get_where_to_send_output (Where) 

). 


/♦ - »/ 

/♦  Asks  user  to  run  the  program  again  with  same  input  file.  ♦/ 

/♦ - ♦/ 


get_run_again_reply( Reply) 

create_popup(query4,(20,0) , (22,79) ,(62,-62)) , 

write(’  Do  you  want  to  run  the  program  again  (y  or  n)  ?  ’), 

getO(User_Reply) , 

exit_popup, 

( 

(  User_Reply  =  121;  y 

User.Reply  =  110  7.  n 

), 

Reply  =  User.Reply 
put(7) , 

get_run_again_reply (Reply) 

). 


/, - */ 

/♦  Prints  ’executing’  message  while  output  is  sent  to  an  output  ♦/ 
/*  file.  ♦/ 

/* - ♦/ 

executing.message  :- 

create_popup( ’ ’ , (11,26) , (14 ,50) , (207,79)) , 
writeC  Executing  ...  ’), 


nl, 

writeC ' 


Please  Wait . ’ ) ■ 


/* - 

/*  Prints  ’Done'  message  after  output  is  sent  to  an  output  file.  */ 
/* - 

done_message(Output_File) 

create_popup( ’ ' , (11,20) ,(14,57) , (58,58)) , 

write(’  Done.  ’), 

nl, 

write(’  Output  was  sent  to  "output’), 
write(Output_File) , 

(  Output _File  =  7, 
write ( ’ .nip". ’) 

» 

write(’.lp". ’) 

). 


/♦ - ♦/ 

/*  Clears  all  windows  before  exiting(quiting)  the  program.  */ 

/* - 


clear_windows 

delete_window(program_title) , 
delete_window(intrc) , 
abolish(arc/2) , 
abolish(prob/2) , 
abolish(cap/2) , 
abolish(cost/2) , 
abolish(budget/l) , 
removeallh(matrix) , 
current_window(_ ,main) . 


Appendix  F.  Reliability  Programs  and  Files 


F.  1  Dirprog  -  Turbo  Pascal  Version 


{This  is  an  MS-DOS  Turbo  Pascal  version  of  the  program  described  in 
the  paper  "Reliability  of  Directed  Networks  Using  the  Factoring 
Theorem"  in  the  Dec.  1989  issue  of  the  IEEE  Transactions  on 
Reliability.  The  program  was  developed  on  a  Macintosh  II  and 
ported  to  MS-DOS.  Because  stack  space  is  limited  to  64k  on  MS-DOS 
computers,  you  may  run  into  problems  with  stack  overflow  on  very  large 
networks.  The  program  will,  however,  treat  all  the  networks  described 
in  the  aforementioned  paper.  There  are  a  number  of  sample  network  files 
on  this  disk.  Check  them  out  first.  The  first  line  gives  the  source 
and  sink,  and  each  additional  line  describes  an  edge  (by  giving  the 
vertices  joined  and  the  reliability).  The  program  creates  an  output 
file  with  the  same  name  except  that  ".OUT"  is  appended.  Since  the 
program  uses  this  convention,  use  names  for  your  input  files  that  do 
not  have  an  extension  as  part  of  their  name.;  This  program  has  been 
compiled  and  tested  with  Turbo  Pascal  5.5.  A  compiled  version  of  the 
program  is  also  included  on  this  disk.} 

{$M  65520,0,200000} 
program  DirNetworkerApp; 
uses  Crt,  DOS; 

{  Programmers:  Lavon  Page  and  Jo  Perry 


Input:  A  text  file  describing  a  directed  graph  with  a  source  and 
sink  pair  of  vertices.  All  vertices  are  represented  by  integers  in 
the  range  of  l..naxv.  All  edges  are  represented  by  their  endpoints 
followed  by  their  reliabilities.  The  first  line  of  the  file  consists 
of  the  source  then  sink..  Each  subsequent  line  in  the  file  describes 
an  edge.  A  maximum  of  "maxe"  edges  are  allowed. 

Output:  A  text  file  whose  name  is  the  catenation  of  the  n-ame  of 
the  input  file  with  the  string  ’Output’.  The  first  line  identifies 
the  input  file  and  contains  an  execution  time  and  date  stamp.  The 
next  lines  echo  the  input.  The  results  of  execution  of  the  algorithm 
come  last.  Included  are  the  reliability  of  the  graph  and  execution 
statistics:  algorithm  ei.ecution  time,  number  of  single  edge  to  source 
or  sink  reductions,  rurober  of  reductions  of  a  vertex  with  in-degree 
and  out-degree  1,  nurc'-er  of  times  factoring  is  performed.} 


H.l 


const 


raaxv  =  50;  •(Maximum  number  of  vertices  in  the  graph} 

maxe  =  100;  {Maximum  number  of  edges} 


type 


degreeType  =  array  [l..maxv]  of  integer;  {List  of  vertex  degrees} 


graphSet  =  set  of  1. .maxv; 
edge  =  record 
start , 

stop  :  l..maxv; 
pr  real 
end;  {edges} 
graph  =  record 

vert  :  graphSet; 
source , 

sink  :  integer; 
inDegree , 

outDegree  :  degreeType; 


{Set  of  vertices} 
{Edge  in  a  graph} 
{Start  vertex} 

{Stop  endvertex} 
{Probability  of  the  edge} 


{Describes  a  graph} 

{Set  of  graph  vertices} 

{Source  vertex} 

{Sink  vertex} 

{In  degree  of  each  vertex} 

{Out  degree  of  each  vertex} 
nb  :  array  [l..maxv]  of  graphSet;  {edge  (i,j)  puts  j  in  nb[i]} 
nuraEdges  :  integer;  {Number  of  edges  in  the  graph} 

maxVertex  :  integer;  {Largest  numbered  vertex  in  the  graph} 

e  :  array  [l.,  .maxe]  of  edge  {Describes  all  edges  in  the  graph} 
end;'  {Graph} 


var 


filename  :  string;  {for  name  of  input  file} 

outfile  :  text;  {Output  text  file} 

g  :  graph;  {Network  graph} 

inOutlCt:  longint;  {#  times  an  in-  and  out-degree  1  vertex  is  removed} 

sourceSinkCt  ;  longint;  {#  times  the  source, sink  incident  to  1  edge} 
factorCt:  longint;  {#  times  factoring  is  '■  ed} 

timer  :  real;  {Measures  execution  time} 


function  seconds:  real; 

var  hour .minute , second , seclOO : word ; 
begin 

GetTime(hour .minute, second, seclOO) ; 

seconds  :=  3600*hour  60*minute  second  *  seclOO/lOO 
end ; 


procedure  GetGraph  (var  g:graph); 

{Initialize  the  graph  g  from  a  text  file.  The  first  line  of  the  file  lists 
the  source  and  sink.  Each  subsequent  line  contains  information  about  an 
edge — Its  initial  endpoint,  its  terminal  one,  and  its  probability.  This 
procedure  does  the  initial  parallel  edge  reduction  on  the  graph.} 
var 


infile  :  text; 
k  :  integer; 
n  :  integer; 
vCount  :  integer; 


{Input  file  containing  directed  graph} 
{Edge  or  vertex  counter} 

{Number  of  edge  currently  being  read} 
{Number  of  graph  vertices} 


hour,  minute,  second,  sec 100:  word; 
year,  month,  day,  cayofweek  :  word; 

begin  {GetGraph} 
gotoxy(5,8) ; 

urite(’Enter  name  of  file  representing  network  — >’); 

readln(f ilename) ; 

writeln; 

assign(infile, filename) ; 
reset(inf ile) ; 

GetTime(hour,  minute,  second,  seclOO); 

GetDateCyear,  month,  day,  dayofweek); 
assign(outf lie, concat(f ilename, ’ .out’)) ; 
rewrite(outf ile) ; 

write(outf ile, ’, filename,’  ♦♦♦  '); 

write(outf ile, month, '/', day, ’/’, year  mod  100,’  ’); 

write(outf lie, hour, ' : ') ; 

if  minute  <  10  then  write(outf ile, ’O’) ; 

writelnCoutfilc, minute); 

vCount  :  =.  0 ; 

n  ;=  0;- 

g.maxVertex  ;=  0; 
g.yert  :=  [3; 
for  k  :=  1  to  maxv  do 
g.nb[k]  :=  [] ; 

readln(infile,g. source, g. sink) ; 

uriteln(outfile, ’Source  vertex  =  ’,g. source,’  Sink  vertex  =  ’,g.sink); 

writeln(outfile) ; 

while  not  eof(infile)  do 

begin  {Read  the  endpoints  and  probability  of  each  edge} 
n  :  =  n  +  1 ; 

readln(inf ile,  g.e[n3 .start,  g.e[n].stop,  g.eCnl.pr), 

writeln(outfile,g.e[n] .start;3, ’  - ’ ,g. e[n] . stop: i , ’rel  =  ’:10, 

g.eCn] .pr:9:4) : 


for  k  ;=  1  to  n  -  1  do 

if  (g.e[k]  .start=g.e[n]  .start)  and  (g.«.*[k3  .stop=g.e[n3  .stop)  then 
begin  {Edges  n  and  k  are  parallel.  Combine  them  into  edge  k.} 
g.eM.pr  :=  g.e[k].pr*(l  -  g.e[n].prl  +  g.eCnJ.pr; 
r.  :=  n  -  1 

end;  {Edges  n  and  k  are  parallel.} 
if  g.e[n3. start  >  g.maxVertex  then 
g. max Vertex  g.e[n] .start; 
if  g.eCn].stop  >  g.maxVertex  then 
g.maxVertex  :=  5. e[n.l  .stop; 
g.vert  :=  g.vert  +  [g.e[r j .start,  g.e[n3 .stop] ; 
g.nb[g. e[n]  .start]  :-  g.ni-rg.e[nJ  .start]  +  [g.e[n]  .stop]  ; 
end;  {Read  endpoints  and  p-.-b^bility  of  each  edge} 
g.nuraEdges  :=  n; 
close(inf lie) ; 
for  k:=l  to  g.maxVertex  do 


if  k  in  g.vert  then 

vCount  :=  vCount  +  1; 

write(outfile, 'Number  of  edges  =  ’ .g.numEdges) ; 

»riteln(outf ile, ’  Number  of  vertices  =  vCount); 
writelnC  The  program  is  now  deteiraining  the  reliability  of 
filename, 

writeln; 

end;  {GetGraph} 


procedure  FindDegree  (var  g:graph); 

{Determine  the  degree  of  every  vertex  in  the  graph  g.} 
var 

1  :  integer;  {Edge  number} 

begin  {FindDegree} 
for  i;=  1  to  g.maxVertex  do 
begin 

g. inDegreeCi]  :=  0; 
g.outDegreeCi]  :=  0; 
end; 

for  1  :=  1  to  g.numEdges  do 
begin 

g.outDegree[g.e[i] .start]  :=  g.outDegree[g.e[i] .start]  +  1; 
g.inDegree[g.e[i] .stop]  :=  g.inDegreeCg.e[i] .stop]  +  1 
end 

end;  {FindDegree} 


procedure  Delete  (var  g; graph;  n: integer); 

{Deletes  edge  n  from  the  graph  g.  Degrees  and  neighbors  are  changed.} 
var 

u,v  :  integer;  {Endpoints  of  the  deleted  edge} 

3:  integer;  {Edge  number) 

begin  {Delete} 
u  :=  g.e[n] .start; 

V  ;=  g.e[n] .stop; 
g.nb[u]  :=  g.nb[u]  -  [v] ; 
g. inDegree[v]  ;=  g.inDegreeCv]  -  1; 
g.outDegree[u]  :=  g.outDegreeLu]  -1; 
for  3  ;=  n  to  g.numEdges- 1  do 
g.e[3]  :=  g.eCj  +  l]  ; 
g.numEdges  ;=  g.numEdges  -  1; 
end;  {Delete} 


procedure  CleanSink  (var  g  ;  graph); 

{Remove  all  edges  in  g  that  have  the  sink  as  starting  vertex.} 
var 


3  :  integer;  {Edge  number} 


begin  {CleanSink} 
for  j  :=  g.numEdges  downto  1  do 
if  g.e[j]. start  =  g.sink  then 
Delete  (g.j); 
end;  {CleanSink} 


procedure  CleanSource  (var  g  :  graph); 

{Remove  all  edges  in  g  that  have  the  source  as  terminating  vertex.} 
var 

j  :  integer;  {Edge  number} 

begin  {CleanSource} 
for  j  :=  g.numEdges  downto  1  do 
if  g.eCj].stop  =  g. source  then 
Delete  (g,j); 
end;  {CleanSource} 

procedure  CleanUp  (var  g: graph); 

{Eliminates  all  dead  end  and  false  start  vertices  in  g.} 
var 

reduced  :  boolean; {Set  false  if  a  dead  end  or  false  start  vertex  found} 
u  ;  integer;  {Graph  vertex} 

j  :  integer;  {Graph  edge} 

begin  {CleanUp} 

CleanSource(g) ; 

CleanSink(g) ; 
repeat 

reduced  :=  true; 

for  u:=l  to  g.maxVertex  do 

if  (uOg. source)  and  (uog.sink)  then 

if  (g.inDegreeCu]  =  0)  or  (g.outDegree[u]  =  0)  then 
if  (u  in  g.vert)  then 

begin  {eliminate  vertex  u} 

reduced  ;=  false; 

for  j :=g.numEdges  downto  1  do 

if  (g.e[j] .start  =  u)  or  (g.e[]].stop  =  u)  then 
Delete(g,j); 
g.vert  ;,=  g.vert  -  [u] 
end;  {eliminate  vertex  u} 

until  reduced 
end ;  {CleanUp} 


procedure  ForwardSimplify  (var  g:graph;  var  s impl if ied: boolean) ; 

{If  one  exists,  eliminates  a  nonnecessary  edge  coming  into  a  vertex  and  sets 

simplified  to  true.} 

var 

V  :  integer;  {Initial  vertex  for  an  edge} 


w  :  integer;  {Terminal  vertex  of  edge  out  of  v} 
j  ;  integer;  {Edge  number} 

begin  {ForwardSimplify} 
for  v;=l  to  g.maxVertex  do 

if  (g.outDegreeCv]  =1)  then 

begin  {Look  for  edge  antiparallel  to  the  edge  out  of  v.} 
for  j;=l  to  g.nuraedges  do 

if  (g.eCj] .start  =  v)  then 
V  :=  g.e[j] .stop; 
for  j:=  g.numEdges  downto  1  do 

if  (g.e[j].stop  =  v)  and  (g.e[j] .start  =  w)  then 
begin  {Delete  the  antiparallel  edge.} 

Delete(g,j) ; 
simplified  :=  true 

end  {Delete  the  antiparallel  edge.} 
end  {Look  for  edge  antiparallel  to  the  edge  out  of  v.} 
end;  {ForwardSimplify} 

procedure  BackSimplify  (var  g:graph;  var  siraplif ied: boolean) ; 

{If  one  exists,  eliminates  a  nonnecessary  edge  coming  out  of  a  vertex  and 

sets  simplified  to  true.} 

var 

V  :  integer;  {Terminal  vertex  for  an  edge} 
w  :  integer;  {Initial  vertex  of  edge  out  of  v} 
j  :  integer;  {Edge  nimber} 

begin  {BackSimplify}; 
for  v;.=l  to  g.maxVertex  do 
if  g. inDegree[v]  =  1  then 

begin  {Look  for  edge  antiparallel  to  the  edge  into  v.} 
for  j:=l  to  g.numedges  do 

if  (g.e[j].stop  =  v)  then 
w  :=  g- eCj] . start; 
for  j : =g . nuraEdges  downto  1  do 

If  (g.e[j] .start  =  v)  and  (g.eCj].stop  =  w)  then 
begin  {Delete  the  antiparallel  edge.} 

Delete(g,j) ; 
simplified  :=  true 

end  {Delete  the  antiparallel  edge.} 
end  {Look  for  edge  antiparallel  to  the  edge  into  v.} 
end;  {BackSimplify} 

procedure  SourceSinkRed  (var  g:graph;  var  found: boolean;  var  factor :real) ; 

{If  the  sink  of  graph  g  has  in-degree  1,  then  it  is  merged  into  its 
neighbor  and  the  resulting  sink  is  cleaned  of  out-edges.  If  the  souce  has 
out-degree  1 ,  then  the  parallel  result  occurs .  Factor  is  returned  as  the 
appropriate  multiplying  factor  for  the  graph.} 


j:  integer; 
intoSink  :  integer;' 
outOf Source  :  integer; 
olds ink  :  integer; 
oldSource  integer; 

begin  {SourceSinkRed} 
found  false; 
if  g.inDegree[g.sink]  =  1  then 

begin  {Merge  the  sink  into  its  adjacent  vertex.} 
found  :=  true; 

sourceSinkCt  ;=  sourceSinkCt  +  1; 
for  j  :=  1  to  g.numEdges  do 

if  g.e[j].stop  =  g.sink  then 
intoSink  :=  j; 

factor  ;=  factor  *  g. e [intoSink] .pr; 

oldSink  :=  g.sink; 

g.sink  :=  g.e [intoSink] .start; 

DeleteCg, intoSink) ; 

g.vert  :=  g.vert  -  [oldSink] ; 

Cleans ink(g) ; 

end;  {Merge  the  sink  into  its  adjacent  vertex.} 
if  (g.outDegree[g. source]  =  1)  and  (g. source  <>  g.sink)  then 
begin  {Merge  the  source  into  its  adjacent  vertex.} 
found  ;=  true; 

sourceSinkCt  ;=  sourceSinkCt  +  1; 
for  J  :=  1  to  g.numEdges  do 

if  g.e[j]. start  =  g. source  then 
outOf Source  :=  j; 

factor  :=  g. e [outOf Source]  pr  +  factor; 

oldSource  :=  g. source;' 

g. source  ;=  g.e [outOf Source] .stop; 

Delete(g,outOfSource) ; 
g.vert  :=  g.vert  -  [oldSource]; 

CleanSource(g) ; 

end;  {Merge  the  source  into  its  adjacent  vertex.} 
end;  {SourceSinkRed} 


{Possible  edge  incident  to  source  or  sink} 
{Edge  into  the  sink} 

{Edge  out  of  the  source} 

{Original  sink  vertex} 

{Original  source  vertex} 


procedure  InOutDeglRed  (var  g  :  graph;  var  found : boolean) ; 

{G  is  scanned  to  find  a  vertex  with  in-degree  and  out-degree  1.  If  such  a 
vertex  is  found,  it  it  removed  and  the  resulting  graph  is  simplified.} 
var 


j  ;  integer; 
u  :  integer; 
inRel  ;  real ; 
outRel  :  real; 
doubleRel  ;  real 
initV  ;  integer; 
termV  ;  integer; 


{Graph  edge} 

{Graph  vertex  (with  possible  in/out  degree  1)} 
{Reliability  of  edge  into  u} 

{Reliability  of  edge  out  of  u} 

{Reliability  of  both  edges  in  sequence} 

{Initial  vertex  of  edge  into  u} 

{Terminal  vertex  of  edge  out  of  u} 
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begin  {InOutDeglRed> 
for  u:=l  to  g.maxVertex  do 

if  (g. inDegreeCu]  =1)  and  (g.ourDegreeCu]  =1)  then 

begin  {Vertex  u  has  in  and  out-degree  1.  Eliminate  it.} 
inOutlCt  :=  inOutlCt  +  1; 
found  :=  true; 

for  j  :=  g.numEdges  downto  1  do 
if  g.e[j] .stop  =  u  then 

begin  {This  is  the  edge  into  u.} 
initV  :=  g.eCj] . start; 
inRel  :=  g.e[j] .pr; 

Delete(g, j) 

end;  {This  is  the  edge  into  u.} 
for  j ;=g.numEdges  downto  1  do 
if  g.eCj]. start  =  u  then 

begin  {This  is  the  edge  out  of  u.} 
termV  :=  g.e[j]  stop; 
outRel  :=  g.eCj] .pr; 

Delete(g,j); 

end;  {This  is  the  edge  out  of  u.} 
doubleRel  :=  inRel  ♦  outRel; 
g.vert  :=  g.vert  -  [u] ; 
if  termV  <>  initV  then 

if  termV  in  g.nb [initV]  then 

begin  {Redo  reliability  of  edge  from  initV  to  termV.} 
for  j:=l  to  g.numEdges  do 

if  (g.eCj] .start  =  initV)  and  (g.eCj]. stop  =  termV)  then 
g.e[j].pr  :=  g.eCj]. pr  *  (1  -  doubleRel)  +  doubleRel; 
end  {Redo  reliability  of  edge  from  initV  to  termV.} 

else 

begin  {Construct  a  new  edge  from  initV  to  termV} 
g.numEdges  :=  g.numEdges  +  1; 
g. e [g.numEdges] .start  initV; 
g.e [g.numEdges] .stop  :=  termV; 
g.eCg.numEdges] .pr  :=  doubleRel; 
g.nbCinitV]  ;=  g.nbCinitV]  +  [termV]; 
g. inDegree [termV]  :=  g. inDegree [termV]  +  1; 
g.outDegree [initV]  :=  g.outDegreeCinitV]  +  1; 
end;  {Construct  a  new  edge  from  initV  to  termV} 

exit ; 

end;  {Vertex  u  has  in  and  out-degree  1.  Eliminate  it.} 
end;  {DegTwoRed} 


procedure  Contract  (var  g: graph;  newSink : integer) ; 

{Contracts  the  sink  of  graph  g  into  the  vertex  newSink.} 
var 

V  ;  integer;  {Graph  vertex} 

j  :  integer;  {Graph  edge} 

inSink  :  Integer;  {Edge  from  v  into  the  old  sink} 
inNewSink  :  integer ; {Edge  from  v  into  the  new  sink} 


parallel  :  boolean;  {True  if  an  edge  go  from  v  to  the  newSink} 


begin  {Contract} 
for  V  ;=  1  to  g.maxVertex  do 
if  (g.sink  in  g.nb[v])  then 

begin  {There  is  an  edge  from  v  to  the  sink.  Change  it.} 

parallel  :=  false; 

for  j;=l  to  g.numEdges  do 

if  (g.e[j] .start  =  v)  and  (g.e[j].stop  =  g.sink)  then 
inSink  :=  j 

else  if  (g.e[j] .start  =  v)  and  (g.e[j].stop  =  newSink)  then 
begin  {There  is  also  an  edge  from  v  to  the  newSink.} 
paarallel  :=  true; 
inNewSink  :=  j; 

end;  {There  is  also  an  edge  from  v  to  the  newSink.} 
if  parallel  then 

begin  {Eliminate  edge  (v.sink).  Change  reliability  of  (v, newSink)} 
g. e [inNewSink] .pr  :=  g.eCinNewSink] .pr  ♦  (1  -  g.eCinSink] .pr) 

+  g.eCinSink] .pr; 

Delete(g, inS ink ) 

end  {Eliminate  edge  inSink.  Change  reliability  of  inNewSink.} 
else 

begin  {Change  the  edge  inSink  to  have  terminal  vertex  newSink.} 
g.e [inSink] .stop  :=  newSink; 
g. inDegree [newSink]  :=  g.inDegree [newSink]  +  1; 
g.inDegree [g.sink]  :=  g.inDegree [g.sink]  -  1; 
end;  {Change  the  edge  inSInk  to  have  terminal  vertex  newSink.} 
g.nb[v]  :=  (g.nb[v]  +  [newSink])  -  [g.sink]; 
end; 

g.vert  :=  g.vert  -  [g.sink]; 
g.sink  :=  newSink; 

CleanSink(g) ; 
end ;  {Contract} 


function  Connected  (var  g; graph)  :  boolean; 

{Determine  if  the  sink  can  be  reached  from  the  source  (they're  connected).} 
var 

comp  :  GraphSet;  {Vertices  so  far  reachable  from  the  source} 
u  :  integer;  {Possible  vertex  in  comp} 

oldSet  GraphSet;  {Comp  on  the  last  pass  through  the  graph} 
changed  :  boolean;  {True  when  a  new  vertex  is  added  to  comp} 

begin  {BPS} 

comp  :=  [g  source]; 

repeat 

oldSet  :=  comp; 
changed  :=  false; 
for  u:=l  to  g.maxVertex  do 
if  u  in  comp  then 

comp  ;=  comp  +  g.nb[u]; 
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if  comp  <>  oldSet  then 
changed  :=  true 
until  not  changed; 

Connected  :=  g.sink  in  comp 
end;  {BFS> 


procedure  SinkEdge  (var  g; graph ;var  k; integer ;var  initVert : integer) ; 
{Find  an  edge  k  into  the  sink.  Initial  vertex  is  initVert.} 
var 

j  :  integer;  {Edge  number} 

begin  {SinkEdge} 

for  j:=l  to  g.numEdges  do 

if  (g.e[j].stop  =  g.sink)  then 
begin 
k  :=  j; 

initVert  :=  g.eCj]. start 
end 

end ;  {SinkEdge} 


function  Prob  (g:graph)  ;  real; 

{Returns  the  reliability  of  the  graph  g.} 
var 

reducible  :  boolean;  {True  if  the  graph  was  just  reduced} 

p  :  real;  {Factor  for  the  probability  of  the  reduced  graph} 

markedEdge  :  integer;  {Edge  used  for  factoring} 

probEdge  :  real;  {Probability  of  edge  used  for  factoring} 

initVert  :  integer;  {Endpoint  of  factored  edge} 

pi  :  real;  {Probability  of  g  with  edge  removed} 

begin  {Prob} 

p  :=  1.0; 

repeat 

reducible  :=  false; 

CleanUp(g) ; 

if  (g. source  <>  g.sink)  and  (g. indegreeCg.sink]  >  0)  and 

(g.outdegreeLg. source]  >  0)  then 

begin 

SourceSinkRed(g, reducible, p) ; 
if  not  reducible  then 

begin  {No  source  or  sink  reduction  was  possible} 
BackSimplifyCg, reducible) ; 

ForwardSimplifyCg, reducible) ; 

InOutDeglRedCg, reducible) ; 
end 
end 

until  not  reducible; 
if  (g. source  =  g.sink)  then 
Prob  :=  p 
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else  if  (g. indegree [g. sink]  =  0)  or  (g.outDegree[g. source]  =  0)  then 
Prob  :=  0 
else 

begin  {Factor  the  graph  —  no  more  reductions  are  possible} 
SinkEdgeCg .markedEdge , initVert) ; 
probEdge  :=  g. e [markedEdge] .pr; 

Delete(g,  markedEdge); 

If  not  Connected(g)  then 
pi  :=  0 

else 

pi  ;=  Prob(g): 

Contract (g, initVert) ; 
f actorCt : =  f actorCt  +  1 ; 

Prob  ;=p*(  (1  -  probEdge)  *  pi  +  probEdge  *  Prob(g)) 
end  {Factor} 
end;  {Prob} 


begin  {Main  progrzun} 

ClrScr : 

sourceSinkCt  ;=  0; 
inOutlCt  :=  0; 
f actorCt  :=  0; 
getGraph(g); 
timer  :=  seconds; 

FindDegree(g) ; 

writelnCoutfile,  Prob(g)  :  0  :  18,  ’  =  probability  ’); 
timer  :=  seconds  -  timer; 

writeln(outf ile, ’Time  =  timer  :  0  :  2,'  seconds'); 

writelnCoutfile , ’Number  of  sonrce/sink  reductions  ’,  sourceSinkCt); 
w  teln(outf ile , ’Number  of  chain  vertex  reductions  ’,  inOutlCt); 

1.  iteln(outfile, ’Number  of  times  factoring  theorem  is  used  ’,  factorCt); 
writeln(outfile) ; 

writelnC’  The  program  has  finished  executing.  Output  for  the  program  is’); 
writelnC’  now  in  a  file  on  disk.  It  is  a  text  file  which  you  may  view  with’); 
writeln(’  the  Turbo  Pascal  editor  or  any  other  editor.’); 
writeln; 

writelnC’  Press  a  key  to  exit  this  program.’); 

repeat  until  keypressed; 

close(outf lie) 

end  {Main  program} . 


F.2  Dirprog  -  ANSI  Pascal  Wrsion 


{This  is  an  ANSI  Pascal  version  of  the  Turbo  Pascal  program  Dirprog  written 

by  Page  and  Perry  } 


program  modprog  (infile.outfile); 


{  Programmers:  Lavon  Page  and  Jo  Perry  -  Turbo  Pascal  version 
Leonard  Jansen  -  ANSI  Pascal  modifications 


Infile.dat:  A  text  file  describing  a  directed  graph  with  a  source 
amd  sink  pair  of  vertices.  All  vertices  are  represented  by  integers 
in  the  range  of  l..maxv.  All  edges  are  represented  by  their 
endpoints  followed  by  their  reliabilities.  The  first  line  of  the 
file  consists  of  the  source  then  sink.  Each  subsequent  line  in  the 
file  describes  an  edge.  A  maximum  of  "maxe”  edges  are  allowed. 

Outfile.dat:  The  first  lines  echo  the  input.  The  results  of 
execution  of  the  algorithm  come  last.  Included  are  the  reliability 
of  the  graph  and  execution  statistics:  number  of  single  edge  to 
source  or  sink  reductions,  number  of  reductions  of  a  vertex  with 
in-degree  and  out-degree  1,  number  of  times  factoring  is  performed.} 


const 

raaxv  =  150;  {Maximum  number  of  vertices  in  the  graph} 

maxe  =  200;  {Maximum  number  of  edges} 


type 


degreeType  =  array  Ll..maxv]  of  integer;  {List  of  vertex  degrees} 


graphSet  =  set  of  1 . 
edge  =  record 
start . 

stop  :  l..maxv; 
pr  :  real 
end;  {edges} 
graph  =  record 

vert  :  graphSet; 
source, 

sink  :  integer; 
inDegree , 
outDegree 
nb  :  array 
numEdges  : 
maxVertex 


.maxv;  {Set  of  vertices} 

{Edge  in  a  graph} 
{Start  vertex} 

{Stop  endvertex} 
{Probability  of  the  edge} 


e  : 
end 


{Describes  a  graph} 

{Set  of  graph  vertices} 

{Source  vertex} 

{Sink  vertex} 

{In  degree  of  each  vertex} 
degreeType;  {Out  degree  of  each  vertex} 

[l..maxv]  of  graphSet;  {edge  (i,j)  puts  j  in  nb[i]} 
integer;  {Number  of  edges  in  the  graph} 

integer;  {Largest  numbered  vertex  in  the  graph} 

array  tl-.maxe]  of  edge  {Describes  all  edges  in  the  graph} 
{Graph} 


var 


inf ile ,outf ile  :  text;  {Input .Output  text  file} 

g  :  graph;  {Network  graph} 

inOutlCt:  integer;  {#  times  an  in-  cind  out-degree  1  vertex  is  removed} 

sourceSinkCt  :  integer;  {#  times  the  source, sink  incident  to  1  edge} 
factorCt:  integer;  {#  times  factoring  is  used} 

timer  :  real;  {Measures  execution  time} 

procedure  GetGraph  (var  g:graph); 

{Initialize  the  graph  g  from  a  text  file.  The  first  line  of  the  file  lists 
the  source  and  sink..  Each  subsequent  line  contains  information  about  an 
edge — its  initial  endpoint,  its  terminal  one,  and  its  probability.  This 
procedure  does  the  i“ .tial  parallel  edge  reduction  on  the  graph.} 
var 

k  :  integer;  {Edge  or  vertex  counter} 

n  :  integer;  {Number  of  edge  currently  being  read} 

vCount  ;  integer;  {Number  of  graph  vertices} 

begin  {GetGraph} 
reset(inf ile) ; 
rewrite(outf ile) ; 
vCount  :=  0; 
n  :=  0; 

g.maxVertex  ;=  0; 
g.vert  :=  □  ; 
for  k  :=  1  to  maxv  do 
g.nb[k3  :=  □; 

readln(inf ile ,g. source, g. sink) ; 

Kriteln(outf lie , 'Source  vertex  =  ',g. source,'  Sink  vertex  =  '.g.sink); 

writeln(outf ile) ; 

while  not  eof(infile)  do 

begin  {Read  the  endpoints  and  probability  of  each  edge} 
n  :  =  n  +  1 ; 

readln(infile,  g . e[n] . start ,  g.e[n].stop,  g.e[n].pr); 

writeln(outfilc,g.e[n] .start;3, ' - ’ ,g.e[n] .stop:4, 'rel  =  ':10, 

g.e[n] .pr;9:4) ; 

for  k  :=  1  to  n  -  1  do 

if  (g.e[k] .start-g.e[n] .start)  and  {g.e[k] .stop=g.e[n] .stop)  then 
begin  {Edges  n  and  k  are  parallel.  Combine  them  into  edge  k.} 
g  e[k].pr  :=  g.e[k].pr*{l  -  g.eCnJ.pr)  +  g.e[n].pr; 
n  :=  n  -  1 

end;  {Edges  n  and  k  are  parallel.} 
if  g.eEn]. start  >  g.maxVertex  then 
g.maxVertex  ;=  g.e[n] .start; 
if  g.e[n].'top  >  g.maxVertex  then 
g.maxVertex  ;=  g.eCn].stop; 
g.vert  :=  g.vert  4  [g . e [n] . start ,  g.e[n] .stop] ; 
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g.nb[g.e[n]  .start]  :=  g.nb[g.eCn]  .start]  +  [g . e [n] •. stop]  ; 
end;  {Read  endpoints  and  probability  of  each  edge} 
g.numEdges  :=  n; 
close(infile) ; 
for  k:=l  to  g.maxVertex  do 
if  k  in  g.vert  then 

vCount  ;=  vCount  +  1; 

writeCoutfile, ’Number  of  edges  =  ’.g.numEdges); 
writeln(outf ile, ’  Number  of  vertices  =  ’.vCount); 
end;  {GetGraph} 


procedure  FindDegree  (var  g: graph); 

{Determine  the  degree  of  every  vertex  in  the  graph  g.} 
var 

1  :  integer;  {Edge  number} 

begin  {FindDegree} 
for  i:=  1  to  g.maxVertex  do 
begin 

g.inDegreeCi]  :=  0; 
g.outDegreeCi]  :=  0; 
end; 

for  i  ;=  1  to  g.numEdges  do 
begin 

g.outDegree[g.e[i] .start]  ;=  g.outDegreeCg.eCi] .start]  +  1; 
g.inDegree[g.e[i] .stop]  ;=  g.inDegree[g.e[i] .stop]  +  1 
end 

end;  {FindDegree} 


procedure  Delete  (var  g; graph;  n: integer); 

{Deletes  edge  n  from  the  graph  g.  Degrees  and  neighbors  are  changed.} 
var 

u.v  :  integer;  {Endpoints  of  the  deleted  edge} 
j:  integer;  {Edge  number} 

begin  {Delete} 
u  :=  g.eCn] .start; 

V  ;=  g.e[n] .stop; 
g.nb[u]  :=  g.nbCu]  -  [v] ; 
g. inDegree[v]  :=  g.inDegreeCv]  -  1; 
g.outDegree[u]  :=  g.outDegreeCu]  -1; 
for  j  ;=  n  to  g.numEdges -1  do 
g-eCj]  :=  g.eCj  +  l] ; 
g.numEdges  :=  g.numEdges  -  1; 
end;  {Delete} 


procedure  CleanSink  (var  g  :  graph); 

{Remove  all  edges  in  g  that  have  the  sink  as  starting  vertex.} 
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vcir 


j  :  integer;  {Edge  number}- 

begin  {CleanSink} 
for  j  :=  g.nuraEdges  downto  1  do 
if  g.eCj]. start  =  g.sink  then 
Delete  (g.j): 
end;  {CleanSink} 


procedure  CleanSource  (var  g  ;  graph); 

{Remove  all  edges  in  g  that  have  the  source  as  terminating  vertex.} 
var 

j  :  integer;  {Edge  number} 

begin  {CleanSource} 

for  j  :=  g.numEdges  downto  1  do 

if  g.eCj].stop  =  g. source  then 
Delete  (g.j): 
end;  {CleanSource} 

procedure  Cleanllp  (var  g:graph); 

{Eliminates  all  dead  end  and  false  start  vertices  in  g.} 
var 

reduced  ;  boolean; {Set  false  if  a  dead  end  or  false  start  vertex  found} 
u  :  integer;  {Graph  vertex} 

j  :  integer;  {Graph  edge} 

begin  {CleanUp} 

CleanSource(g) ; 

CleanSink (g) ; 
repeat 

reduced  ;=  true; 

for  u:=l  to  g.maxVertex  do 

if  (uOg. source)  and  (uOg.sink)  then 

if  (g. inDegreeCu]  =  0)  or  (g.outDegree[u]  =  0)  then 
if  (u  in  g.vert)  then 

begin  {eliminate  vertex  u} 

reduced  :=  false;' 

for  J :=g.numEdges  downto  1  do 

if  (g.e[i] .start  =  u)  or  (g.e[j].stop  =  u)  then 
Delete(g,j); 
g.vert  :=  g.vert  -  [u] 
end;  {eliminate  vertex  u} 

until  reduced 
end;  {Cl  lanUp} 


procedure  ForwardSimplif y  (var  gigraph;  var  simplif ied;boolean) ; 

{If  one  exists,  eliminates  a  nonnecessary  edge  coming  into  a  vertex  and  sets 
simplified  to  true.} 
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var 


V  :  integer;  {Initial  vertex  for  an  edge} 
w  ;  integer;  {Terminal  vertex  of  edge  out  of  v} 
j  :  integer;  {Edge  number} 

begin  {ForwardSimplify} 
for  v:=l  to  g.maxVertex  do 

if  (g.outDegreeCv]  =1)  then 

begin  {Look  for  edge  antiparallel  to  the  edge  out  of  v.} 
for  j:=l  to  g.numedges  do 

if  Cg.eCj] .start  =  v)  then 
H  :=  g.eCj] .stop; 
for  j;=  g.numEdges  downto  1  do 

if  (g.e[j].stop  =  v)  and  (g. eCj] ..start  =  w)  then 
begin  {Delete  the  antiparallel  edge.} 

Delete(g,j); 
simplified  :=  true 

end  {Delete  the  antiparallel  edge.} 
end  {Look  for  edge  antiparallel  to  the  edge  out  of  v.} 
end;  {ForwardSimplify} 

procedure  BackSimplify  (var  g:graph;  var  simplif ied:boolean) ; 

{If  one  exists,  eliminates  a  nonnecessciry  edge  coming  out  of  a  vertex  and 

sets  simplified  to  true.} 

var 

V  :  integer;  {Terminal  vertex  for  an  edge} 
w  ;  integer;  {Initial  vertex  of  edge  out  of  v} 
j  •  integer;  {Edge  number} 

begin  {BackSimplify}; 
for  v:=l  to  g.maxVertex  do 
if  g. inDegreeCv]  =  1  then 

begin  {Look  for  edge  antiparallel  to  the  edge  into  v.} 
for  j:=l  to  g.numedges  do 

if  (g.e[j].stop  =  v)  then 
u  :=  g.e[j] .start; 
for  j :=g.numEdge=  downto  1  do 

if  (g. e[j] .start  =  v)  and  (g.eCj].stop  =  w)  then 
begin  {Delete  the  antiparallel  edge.} 

Delete(g,j); 
simplified  :=  true 

end  {Delete  the  antiparallel  edge.} 
end  {Look  for  f dge  antiparallel  to  the  edge  into  v.} 
end;  {BackSimplify} 

procedure  SourceSinkRed  (var  g: graph;  var  found: boolean;  var  factor: real); 

{If  the  sink  of  graph  g  has  in-degree  1,  then  it  is  merged  into  its 
neighbor  and  the  resulting  sink  is  cleaned  of  out-edges.  If  the  souce  has 
out-degree  1,  then  the  parallel  result  occurs.  Factor  is  returned  an  the 
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appropriate  multiplying  factor  for  the  graph.} 
var 


j:  integer; 
intoS*nk  :  integer; 
oatGf Source  :  integer; 
oldSink  :  integer; 
oldSource  ;  integer; 


{Possible  edge  incident  to  source  or  sink} 
{Edg«.  ‘.nto  the  sink} 

{Edge  cut  of  the  source} 

{Original  sink  vertex} 

{Original  source  vertex} 


begin  {SourceSinkRed} 
found  :=  false; 

if  g.inDegreeCg.sink]  =  1  then 

begin  {Merge  the  sink  into  its  adjacent  vertex.} 
found  :=  true; 

sourceSinkCt  :=  sourceSinkCt  +  1; 
for  j  :=  1  to  g.numEdges  do 

if  g.eCj].stop  =  g.sink  then 
intoSink  ;=  j; 

factor  ;=  factor  ♦  g. e [intoSink] .pr; 

oldSink  :=  g.sink; 

g.sink  :=  g.e [intoSink] .start; 

DeleteCg, intoSink) ; 

g.vert  ;=  g.vert  -  [oldSiak] ; 

CleanSink(g) ; 

end;  {Merge  the  sink  into  its  adjacent  vertex.} 
if  (g.outDegree[g. source]  =  1)  and  (g. source  <>  g.sink)  then 
begin  {Merge  the  source  into  its  adjacent  vertex.} 
found  :=  true; 

sourceSinkCt  ;=  sourceSinkCt  +  1; 
for  J  :=  1  to  g.numEdges  do 

if  g.e[j]. start  =  g. source  then 
outOfSource  :=  j; 

factor  :=  g. e[outOf Source] .pr  ♦  factor; 

oldSource  :=  g. source; 

g. source  :=  g. e [outOfSource] .stop; 

DeleteCg, outOfSource) ; 
g.vert  :=  g.vert  -  [oldSource]; 

CleanSource(g) ; 

end;  {Merge  the  source  into  its  adjacent  vertex.} 
end;  {SourceSinkRed} 


procedure  InOutDegiRed  (var  g  ;  graph;  var  found :boolean) ; 

{G  IS  scanned  to  find  a  vertex  with  in-degree  and  out-degree  1.  If  such  a 
vertex  is  found,  it  it  removed  and  the  resulting  graph  is  simplified.} 
var 


e,j  :  integer; 
u  :  integer; 
inRel  :  real; 
outRel  ;  real ; 
doubleRel  ;  real 
initV  :  integer; 


{Graph  edge} 

{Graph  vertex  (with  possible  in/out  degree  1)} 
{Reliability  of  edge  into  u) 

{Reliability  of  edge  out  of  u} 

; {Reliability  of  both  edges  in  sequence} 

{Initial  vertex  of  edge  into  u} 
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termV  :  integer;  {Terminal  vertex  of  edge  out  of  u}- 

begin  {InOutDeglRed} 
e :  -0; 

if  e  <  100  then 

for  u;=l  to  g.maxVertex  do 

if  (g. inDegreeCu]  =1)  and  (g.outDegreeCu]  =1)  then 

begin  {Vertex  u  has  in  and  out-degree  1.  Eliminate  it.} 
inOutlCt  :=  inOutlCt  +1; 
found  :=  true; 

for  j  ;=  g.numEdges  downto  1  do 
if  g.eCjl.stop  =  u  then 

begin  {This  is  the  edge  into  u.} 
initV  :=  g. e[j] . start ; 
inRel  ;=  g.e[j] .pr; 

DeleteCg, j) 

end;  {This  is  the  edge  into  u.} 
for  j :=g.numEdges  downto  1  do 
if  g.eCj]. start  =  u  then 

begin  {This  is  the  edge  out  of  u.} 
termV  ;=  g.e[j].stop; 
outRel  :=  g.e[j].pr; 

DeleteCg, j) ; 

end;  {This  is  the  edge  out  of  u.} 
doubleRel  :=  inRel  *  outRel; 
g. vert  :=  g.vert  -  [u] ; 
if  termV  <>  initV  then 

if  termV  in  g.nb [initV]  then 

begin  {Redo  reliability  of  edge  from  initV  to  termV.} 
for  j:=l  to  g.numEdges  do 

if  (g.e[j] .start  =  initV)  and  (g.e[j].stop  =  termV)  then 
g.e[j].pr  :=  g.e[j].pr  *  (1  -  doubleRel)  +  doubleRel; 
end  {Redo  reliability  of  edge  from  initV  to  termV.} 

else 

begin  {Construct  a  new  edge  from  initV  to  termV} 
g.numEdges  :=  g.numEdges  +  1; 
g.e [g.numEdges] .start  :=  initV; 
g.e [g.numEdges] .stop  :=  termV; 
g. e [g . numEdges] .pr  :=  doubleRel; 
g.nb[initV]  ;=  g.nb[initV]  +  [termV]; 
g. inDegree [termV]  :=  g. inDegree [termV]  +  1; 
g. outDegree [initV]  ;=  g.outDegree[initV]  +  1; 
end;  {Construct  a  new  edge  from  initV  to  termV} 
o:=500; 

end;  {Vertex  u  has  in  and  out-degree  1.  Eliminate  it.} 
end;  {DegTwoRed} 


procedure  Contract  (var  g: graph;  newSink : integer) ; 

{Contracts  the  sink  of  graph  g  into  the  vertex  newSink.} 
var 


ITS 


V  :  integer;  {Graph  vertex} 

j  :  integer;  {Graph  edge} 

inSink  :  integer;  {Edge  from  v  into  the  old  sink} 
inNewSink  :  integer ; {Edge  from  v  into  the  new  sink} 
parallel  :  boolean;  {True  if  an  edge  go  from  v  to  the  newSink} 

begin  {Contract} 
for  V  ;=  1  to  g.maxVertex  do 
if  (g.sink  in  g.nb[v])  then 

begin  {There  is  an  edge  from  v  to  the  sink.  Change  it.} 

parallel  ;=  false; 

for  j;=l  to  g.numEdges  do 

if  (g.e[j] .start  =  v)  and  (g.eCjJ.stop  =  g.sink)  then 
inSink  j 

else  if  (g.eCj] .start  =  v)  and  (g.eCj].stop  =  newSink)  then 
begin  {There  is  also  an  edge  from  v  to  the  newSink.} 
parallel  ; =  true ; 
inNewSink  :=  j; 

end;  {There  is  also  an  edge  from  v  to  the  newSink.} 
if  parallel  then 

begin  {Eliminate  edge  (v.sink).  Change  reliability  of  (v, newSink)} 
g. e [inNewSink] .pr  ;=  g.eCinNewSink] .pr  *  (1  -  g. e [inSink] .pr) 

+  g.e[inSink]  .pr;’ 

DeleteCg, inSink) 

end  {Eliminate  edge  inSink.  Change  reliability  of  inNewSink.} 
else 

begin  {Change  the  edge  inSink  to  have  terminal  vertex  newSink.} 
g.e [inSink] .stop  :=  newSink; 

g. inDegree [newSink]  :=  g . inDegree [newSink]  +  1; 
g.inDegree [g.sink]  :=  g. inDegree [g.sink]  -  1; 
end;  {Change  the  edge  inSInk  to  have  terminal  vertex  newSink.} 
g.nb[v]  :=  (g.nb[v]  +  [newSink])  -  [g.sink]; 
end; 

g.vert  ;=  g.vert  -  [g.sink]; 
g.sink  :=  newSink; 

CleanSink(g) ; 
end;  {Contract} 


function  Connected  (var  g;graph)  ;  boolean; 

{Determine  if  the  sink  can  be  reached  from  the  source  (they're  connected).} 
var 

comp  :  GraphSet;  {Vertices  so  far  reachable  from  the  source} 
u  :  integer;  {Possible  vertex  in  comp} 

oldSet  :  GraphSet;  {Comp  on  the  last  pass  through  the  graph} 
changed  :  boolean;  {True  when  a  new  vertex  is  added  to  comp} 

begin  {BPS} 

comp  :  =  [g .  source] ; 

repeat 

oldSet  :=  comp; 


changed  :=  false; 
for  u:=l  to  g.maxVertex  do 
if  u  in  comp  then 

comp  ;=  comp  +  g.nb[u]; 
if  comp  <>  oldSet  then 
changed  :=  true 
until  not  changed; 

Connected  :=  g.sink  in  comp 
end;  {BFS} 


procedure  SinkEdge  (var  g:graph;var  k:integer;var  initVert: integer) ; 
{Find  an  edge  k  into  the  sink.  Initial  vertex  is  initVert.} 
var 

3  :  integer;  {Edge  number} 

begin  {SinkEdge} 

for  j:=l  to  g.numEdges  do 

if  (g.e[j].stop  =  g.sink)  then 
begin 
k  :=  j; 

initVert  :=  g.eCj]. start 
end 

end;  {SinkEdge} 


function  Prob  (g:graph)  :  real; 

{Returns  the  reliability  of  the  graph  g.} 
var 

reducible  :  boolean;  {True  if  the  graph  was  just  reduced} 

p  ■  rpai ;  {Factor  for  the  probability  of  the  reduced  graph} 

markedEdge  :  integer;  {Edge  used  lor  factoring} 

probEdge  :  real;  {Probability  of  edge  used  for  factoring} 

initVert  :  integer;  {Endpoint  of  factored  edge} 

pi  :  real;  {Probability  of  g  with  edge  removed} 


begin  {Prob} 

P  :=  1-0; 
repeat 

reducible  :=  false; 

Cleanup (g); 

if  (g. source  <>  g.sink)  and  (g.indegreeLg-sink]  >  0)  and 

(g.outdegreeCg. source]  >  0)  then 

begin 

SourceSinkRed(g, reducible ,p) ; 
if  not  reducible  then 

begin  {No  source  or  sink  reduction  was  possible} 
BackSimplifyCg, reducible) , 

ForwardSimplifyCg, reducible) ; 

InOutDeglRedCg, reducible) ; 
end 
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end 

until  not  reducible; 
if  (g. source  =  g.sink)  then 
Prob  :=  p 

else  if  (g. indegree [g.sink]  =  0)  or  (g.outDegree[g. source]  =  0)  then 
Prob  :=  0 
else 

begin  {Factor  the  graph  —  no  more  reductions  are  possible} 
SinkEdgeCg .markedEdge , initVert) ; 
probEdge  ;=  g.eCmarkedEdge] .pr; 

Delete(g,  markedEdge); 

If  not  Connected(g)  then 
pi  :=  0 

else 

pi  :=  Prob(g) ; 

Contract (g, initVert) ; 
factorCt:=  factorCt  +  1; 

Prob  :=p*(  (1  -  probEdge)  *  pi  +  probEdge  ♦  Prob(g)) 
end  {Factor} 
end;  {Prob} 


begin  {Main  program} 
sourceSinkCt  :=  0; 
inOutlCt  :=  0; 
factorCt  :=  0; 
getGraph(g) ; 

FindDegree(g) ; 

writeln(outf lie,  Prob(g)  :  0  :  18,  ’  =  probability 

writeln(outfile, ’Number  of  source/sink  reductions 

writelnCoutfile, ’Number  of  chain  vertex  reductions 

wziteln(outl lie, ’Number  of  times  factoring  theorem 

writeln(outf ile) ; 

close(outf ile) 

end  {Main  program} . 


’); 

’ ,  sourceSinkCt) ; 

’ ,  inOutlCt) ; 
is  used  ’,  factorCt); 


ISl 


F.3  Network  Reliability  Files 


F.3.1  Network  A  Input  File 


39 

40 

1 

2 

1.0 

3 

4 

0.3 

5 

6 

0.7 

7 

8 

0.5 

9 

10 

0.8 

11 

12 

1.0 

13 

14 

0.3 

15 

16 

0.7 

17 

18 

0.5 

19 

20 

0.8 

21 

22 

1.0 

23 

24 

0.3 

25 

26 

0.7 

27 

28 

0.5 

29 

30 

0.8 

31 

32 

0.8 

33 

34 

0.7 

35 

36 

0.3 

37 

38 

1.0 

39 

7 

1.0 

39 

3 

1.0 

39 

5 

1.0 

39 

1 

1.0 

8 

27 

1.0 

4 

27 

0.6 

4 

9 

0.3 

6 

21 

1.0 

6 

17 

1.0 

2 

23 

1.0 

2 

25 

1.0 

2 

27 

1.0 

10 

19 

0.6 

10 

21 

0.7 

18 

29 

1.0 

24 

29 

0..7 

26 

29 

1.0 

20 

29 

0.6 

22 

29 

1.0 

30 

11 

0.3 

30 

13 

0.6 

30 

15 

0.7 

12 

27 

0.6 

14 

27 

0.6 

16 

27 

0.3 

28 

37 

0.6 

1S2 


28 

35 

0.6 

28 

33 

0.3 

38 

31 

0.3 

36 

31 

0.6 

34 

31 

0.7 

32 

40 

1.0 

1S:{ 


F.3.2  Network  A  Output  File 


***  neta  ♦**  11/4/91  19:03 

Source  vertex  =  39  Sink  vertex  =  40 


1  — 

2 

rel  = 

1 . 0000 

3 - 

4 

rel  = 

0.3000 

5 - 

6 

rel  = 

0 . 7000 

7 - 

8 

rel  = 

0.5000 

9 - 

10 

rel  = 

0.8000 

11 - 

12 

rel  = 

1.0000 

13 - 

14 

rel  = 

0.3000 

15 - 

16 

rel  = 

0.7000 

17 - 

18 

rel  = 

0.5000 

19 - 

20 

rel  = 

0 . 8000 

21 - 

22 

rel  = 

1.0000 

23 - 

24 

rel  = 

0 . 3000 

25 - 

26 

rel  = 

0.7000 

27 - 

28 

rel  = 

0.5000 

29 - 

30 

rel  = 

0.8000 

31 - 

32 

rel  = 

0.8000 

33 - 

34 

rel  = 

0.7000 

35 - 

36 

rel  = 

0.3000 

37 - 

38 

rel  = 

1 . 0000 

39 - 

7 

rel  = 

1.0000 

39 - 

3 

rel  = 

1.0000 

39 - 

5 

rel  = 

1.0000 

39 - 

1 

rel  = 

1.0000 

8 - 

27 

rel  = 

1 . 0000 

4  '  *  - 

27 

rel  = 

0.6000 

4 - 

9 

rel  = 

0 . 3000 

6 - 

21 

rel  = 

1.0000 

6 - 

17 

rel  = 

1.0000 

2 - 

23 

rel  = 

1.0000 

2 - 

26 

rel  = 

1.0000 

2 - 

27 

rel  = 

1.0000 

10 - 

19 

rel  = 

0.6000 

10 - 

21 

rel  = 

0.7000 

18 - 

29 

rel  = 

1 . 0000 

24 - 

29 

rel  = 

0.7000 

26 - 

29 

rel  = 

l.OOCO 

20 - 

29 

rel  = 

0.6000 

22 - 

29 

rel  = 

1 . 0000 

30 - 

11 

rel  = 

0.3000 

30 - 

13 

.•a  = 

0 . 6000 

30 - 

16 

rel  = 

0.7000 

12 - 

27 

rel  = 

0.6000 

14 - 

27 

rel  = 

0.6000 

16 - 

27 

■el  = 

0 . 3000 

28 - 

37 

rel  = 

0 . 6000 

28 - 

35 

rel 

28 - 

33 

rel 

38 - 

31 

rel 

36 - 

3'. 

rel 

34 - 

31 

rel 

32 - 

40 

rel 

Number  of 

edges 

=  51 

0.15043267200  = 
Time  = 

Number 
Number 
Number 


0.6000 

0.3000 

0.3000 

0.6000 

0.7000 

1.0000 

vertices  =  40 


Number  of 
probability 
0.44  seconds 
of  source/sink  reductions  7 
of  chain  vertex  reductions  37 
of  times  factoring  theorem  is  used 


IS.-) 


F.3.3  Network  B  Input  File 


46 

47 

14 

15 

0. 

80 

14 

17 

0. 

80 

18 

17 

0. 

50 

18 

19 

0. 

50 

16 

15 

0. 

80 

16 

19 

0. 

50 

16 

30 

0. 

60 

8 

30 

0. 

80 

8 

43 

0. 

50 

11 

27 

0. 

80 

31 

30 

0. 

50 

31 

44 

0. 

60 

31 

45 

0. 

60 

20 

21 

0. 

SO 

17 

21 

0. 

70 

22 

21 

0. 

SO 

23 

24 

0. 

.50 

23 

25 

0. 

,70 

23 

26 

0, 

,70 

34 

35 

0. 

,50 

34 

37 

0, 

,50 

34 

38 

0. 

SO 

2S 

30 

0. 

.70 

25 

39 

0, 

.50 

32 

30 

0. 

.70 

28 

29 

0, 

.80 

?0 

0, 

.  80 

36 

35 

0. 

.60 

36 

37 

0, 

.60 

36 

38 

0. 

,60 

36 

39 

0, 

.60 

36 

40 

0. 

.60 

36 

41 

0, 

.60 

36 

42 

0, 

.60 

36 

43 

0, 

.60 

36 

44 

0 

.60 

36 

45 

0 

.60 

2 

14 

0 

.70 

4 

18 

0 

.15 

6 

16 

0 

.03 

13 

31 

0 

.04 

15 

20 

0 

.40 

19 

22 

0 

.01 

21 

23 

0 

.70 

24 

34 

0 

.11 

26 

32 

0 

.06 

27 

28 

0 

.09 

|S( 


29 

33 

0 

.18 

30 

36 

0 

.07 

46 

2 

1 

.00 

46 

4 

1 

.00 

46 

6 

1 

.00 

46 

8 

1 

.00 

46 

11 

1 

.00 

46 

13 

1 

.00 

35 

47 

1 

.00 

37 

47 

1 

.00 

38 

47 

1 

.00 

39 

47 

1 

.00 

40 

47 

1 

.00 

41 

47 

1 

.00 

42 

47 

1 

.00 

43 

47 

1 

.00 

44 

47 

1 

.00 

45 

47 

1 

.00 

I  sv 


F.3.4  Network-  B  Output  File. 


***  netrel 
Source  vertex 


14 - 

15 

14 - 

17 

18 - 

17 

18 - 

19 

16 - 

15 

16 - 

19 

16 - 

30 

8 - 

30 

8 - 

43 

11 - 

27 

31 - 

30 

31 - 

44 

31 - 

45 

20 - 

21 

17 - 

21 

22 - 

21 

23 - 

24 

23 - 

25 

23 - 

26 

34  — - 

35 

34 - 

37 

34 - 

38 

25 - 

30 

25 - 

39 

- 

30 

28 - 

29 

33 - 

30 

36 - 

35 

36 - 

37 

36 - 

38 

36 - 

39 

36 - 

40 

36 - 

41 

36 - 

42 

36 - 

43 

36 - 

44 

36 - 

45 

2 - 

14 

4 - 

18 

6 - 

16 

13 - 

31 

15 - 

20 

19 - 

22 

21 - 

23 

24 - 

34 

11/4/91 

21:25 

46  Sink  vertex 

rel  = 

0.8000 

rel  = 

0.8000 

rel  = 

0.5000 

rel  = 

0 . 5000 

rel  = 

0.8000 

rel  = 

0.5000 

rel  = 

0.6000 

rel  = 

0.8000 

rel  = 

0.5000 

rel  = 

0.8000 

rel  = 

0.5000 

rel  = 

0 . 6000 

rel  = 

0.6000 

rel  = 

0.5000 

rel  = 

0.7000 

rel  = 

0.5000 

rel  = 

0.5000 

rel  = 

0.7000 

rel  = 

0.7000 

rel  = 

0.5000 

rel  = 

0.5000 

rel  = 

0 . 5000 

rel  = 

0.7000 

rel  = 

0 . 5000 

rel  = 

0.7000 

rel  = 

0.8000 

rel  = 

0 . 8000 

rel  = 

0.6000 

rel  = 

0.6000 

rel  = 

0 . 6000 

rel  = 

0.6000 

rel  = 

0.6000 

rel  = 

0 . 6000 

rel  = 

0.6000 

rel  = 

0.6000 

rel  = 

0.6000 

rel  = 

0.6000 

rel  = 

0.7000 

rel  = 

0.1500 

rel  = 

0 . 0300 

rel  = 

0.0400 

rel  - 

0.4000 

rel  = 

0.0100 

rel  = 

0.7000 

rel  = 

0. 1100 

47 


l.SS 


26 - 

32 

rel  = 

0.0600 

27 - 

28 

rel  = 

0.0900 

29 - 

33 

rel  = 

0.1800 

30 - 

36 

rel  = 

0.0700 

46 - 

2 

rel  = 

1.0000 

46 - 

4 

rel  = 

1 . 0000 

46 - 

6 

rel  = 

1.0000 

46 - 

8 

rel  = 

1.0000 

46 - 

11 

rel  = 

1.0000 

46 - 

lo 

rel  = 

1.0000 

35 - 

47 

rel  = 

1.0000 

37 - 

47 

rel  = 

1.0000 

38 - 

47 

rel  = 

1.0000 

39 - 

47 

rel  = 

1.0000 

40 - 

47 

rel  = 

1.0000 

41 - 

47 

rel  = 

1.0000 

42 - 

47 

rel  = 

1.0000 

43 - 

47 

rel  = 

1.0000 

44 - 

47 

rel  = 

1.0000 

45 - 

47 

rel  = 

1 . 0000 

Number  of  edges  =  65  Niunber  of  vertices  =  40 


0.60116629875  =  probability 


Time  =  58.00  seconds 

Number  of  source/sink  reductions  2838 
Number  of  chain  vertex  reductions  4584 
Number  of  times  factoring  theorem  is  used  3128 


F.3.5  Network  C  Input  File 


78  79 

20  21  0.90 
22  21  1.00 
13  14  1.00 

23  21  0.60 
10  15  0.30 
16  17  0.60 

18  19  1.00 

24  21  0.90 

25  21  1.00 

19  21  0.70 

26  27  0.90 
26  39  0.60 
26  42  0.30 
26  60  0.60 
26  62  0.70 
28  29  1.00 
28  30  1.00 
28  31  0.60 
28  32  0.30 
28  33  0.60 
28  34  0.70 
28  35  0.90 
28  36  1.00 
28  37  1.00 
28  38  0.60 
40  39  0.30 
40  42  0.60 
40  43  0.70 
40  44  0.90 
40  45  1.00 
40  46  1.00 

40  47  0.30 

41  39  0.60 
41  42  0.30 
41  43  0.60 
41  44  0.70 
41  45  0.90 
41  46  1.00 
41  47  1.00 
31  51  0.60 
31  52  0.30 
48  49  0.60 
48  51  0.70 
48  52  0.90 
48  S3  1.00 
48  56  1.00 
50  49  0.60 


l<)() 


50  53  0.30 

50  54  0.60 

61  60  0.70 
63  62  0.90 

36  55  1.00 

57  56  1.00 

58  59  0.60 
2  20  0.30 
4  22  0.70 
6  13  0.50 
8  23  0.80 

12  16  0.30 

14  18  0.70 

15  24  0.50 
17  25  0.80 
21  26  0.70 
27  28  0.70 

29  40  0.50 

30  41  0.80 

32  48  0.30 

33  50  0.70 

34  61  0.50 

35  63  0.80 

37  57  0.30 

38  58  0.70 

39  64  0.50 

42  65  0.80 

44  66  0.30 

45  67  0.70 

46  68  0.50 

47  69  0.80 

51  70  0.30 

52  71  0.70 

53  72  0.50 

54  73  0.80 
56  74  0.30 

59  75  0.70 

60  76  0.50 

62  77  0.80 

78  2  1.00 

78  4  1.00 

78  6  1.00 

78  8  1.00 

78  10  1.00 
78  12  1.00 

43  79  1.00 
49  79  1.00 
56  79  1.00 

64  79  1.00 

65  79  1.00 

66  79  1.00 
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67 

79 

1, 

,00 

68 

79 

1. 

,00 

69 

79 

1, 

,00 

70 

79 

1, 

,00 

71 

79 

1, 

,00 

72 

79 

1, 

,00 

73 

79 

1, 

,00 

74 

79 

1, 

,00 

75 

79 

1 

,00 

76 

79 

1, 

,00 

77 

79 

1 

,00 

192 


F.3.6  Network  C  Output  File 


Source  vertex  = 


78  Sink  vertex 


20 

— 

21 

rel  = 

0.9000 

22 

— 

21 

rel  = 

1.0000 

13 

— 

14 

rel  = 

1.0000 

23 

— 

21 

rel  = 

0.6000 

10 

— 

15 

rel  = 

0.3000 

16 

— 

17 

rel  = 

0.6000 

18 

— 

19 

rel  = 

1.0000 

24 

— 

21 

rel  = 

0.9000 

25 

— 

21 

rel  = 

1.0000 

19 

— 

21 

rel  = 

0.7000 

26 

— 

27 

rel  = 

0.9000 

26 

— 

39 

rel  = 

0.6000 

26 

— 

42 

rel  = 

0.3000 

26 

— 

60 

rel  = 

0.6000 

26 

— 

62 

rel  = 

0.7000 

28 

— 

29 

rel  = 

1.0000 

28 

— 

30 

rel  = 

1.0000 

28 

31 

rel  = 

0.6000 

28 

— 

32 

rel  = 

0.3000 

28 

— 

33 

rel  = 

0.6000 

28 

— 

34 

rel  = 

0.7000 

28 

— — 

35 

rel  = 

0.9000 

28 

36 

rel  = 

1.0000 

28 

— 

37 

rel  = 

1.0000 

28 

— 

38 

rel  = 

0.6000 

40 

— 

39 

rel  = 

0.3000 

40 

— 

42 

rel  = 

0.6000 

40 

— 

43 

rel  = 

0 . 7000 

40 

— 

44 

rel  = 

0.9000 

40 

— 

•15 

rel  = 

1.0000 

40 

— 

46 

rel  = 

1.0000 

40 

— 

47 

rel  = 

0.3000 

41 

— 

39 

rel  = 

0.6000 

41 

— 

42 

rel  ^ 

0.3000 

41 

— 

43 

rel  = 

0.6000 

41 

— 

44 

rel  = 

0.7000 

41 

— 

45 

rel  = 

0.9000 

41 

— 

46 

rel  = 

1.0000 

41 

47 

rel  = 

1.0000 

31 

— 

51 

rel  = 

0.6000 

31 

— 

52 

rel  = 

0.3000 

48 

— 

49 

rel  = 

0.6000 

4J 

— 

51 

rel  = 

0.7000 

48 

— 

52 

rel  = 

0.9000 

48 

— 

53 

rel  = 

1.0000 

48 

— 

56 

rel  = 

1.0000 

so 

— 

49 

rel  = 

0.6000 

50 

— 

53 

rel  = 

0.3000 

50 

— 

54 

rel  = 

0.6000 

61 

— 

60 

rel  = 

0.7000 

63 

— 

62 

rel  = 

0.9000 

36 

— 

55 

rel  = 

1.0000 

57 

— 

56 

rel  = 

1.0000 

58 

— 

59 

rel  = 

0.6000 

2 

— 

20 

rel  = 

0.3000 

4 

— 

22 

rel  = 

0.7000 

6 

— 

13 

rel  = 

0.5000 

8 

— 

23 

rel  = 

0.8000 

12 

— 

16 

rel  = 

0.3000 

14 

— 

18 

rel  = 

0.7000 

15 

— 

24 

rel  = 

0.5000 

17 

— 

25 

rel  = 

0.8000 

21 

— 

26 

rel  = 

0 . 7000 

27 

— 

28 

rel  = 

0.7000 

29 

— 

40 

rel  = 

0.5000 

30 

— 

41 

rel  = 

0.8000 

32 

— 

48 

rel  = 

0.3000 

33 

— 

50 

rel  = 

0.7000 

34 

— 

61 

rel  = 

0.5000 

35 

— 

63 

rel  = 

0.8000 

37 

— 

57 

rel  = 

0.3000 

38 

— — 

58 

rel  = 

0.7000 

39 

— 

64 

rel  = 

0.6000 

42 

— 

65 

rel  = 

0.8000 

44 

— 

66 

rel  = 

0.3000 

45 

— — 

67 

rel  = 

0.7000 

46 

— 

68 

rel  = 

0.5000 

47 

— 

69 

rel  = 

0.8000 

51 

— 

70 

rel  = 

0.3000 

52 

— 

71 

rel  = 

0.7000 

S3 

— 

72 

rel  = 

0 . 5000 

54 

— 

73 

rel  = 

0.8000 

56 

— 

74 

rel  = 

0.3000 

59 

— 

75 

rel  = 

0.7000 

60 

— 

76 

rel  = 

0.5000 

62 

— 

77 

rel  = 

0.8000 

78 

— 

2 

rel  = 

1.0000 

78 

— 

4 

rel  = 

1.0000 

78 

— 

6 

rel  = 

1.0000 

78 

— 

8 

rel  = 

1 .0000 

78 

— 

10 

rel  = 

1.0000 

78 

— 

12 

rel  = 

1.0000 

43 

— 

79 

rel  = 

1.0000 

49 

— 

79 

rel  = 

1.0000 

55 

— 

79 

rel  = 

1.0000 

64 

— 

79 

rel  = 

1 .0000 

65 

— 

79 

rel  = 

1.0000 

66  -  79  rel  =  1.0000 

67  -  79  rel  =  1.0000 

68  -  79  rel  =  1.0000 

69  -  79  rel  "  l.OOCO 

70  -  79  rel  ••  1.0000 

71  -  79  rel  =  1.0000 

72  -  79  rel  =  1.0000 

73  -  79  rel  =  1.0000 

74  -  79  rel  =  1.0000 

75  -  79  rel  =  1.0000 

76  -  79  rel  =  1.0000 

77  -  79  rel  =  1.0000 

Number  of  edges  =  109  Number  of  vertices  = 

0.615699291229248047  =  probability 
Number  of  source/sink  reductions  31884 

Number  of  chain  vertex  reductions  70208 

Number  of  times  factoring  theorem  is  used  32239 


Appendix  G.  Pascal  Programs 


G.l  Conotrt 


Progrcun  Convert; 
const 

maxarc=125; 

type 

arcarray  =  array [1 . .maxarc]  of  integer; 
nodearray  =  array [l . .maxarc, 1 .. 2]  of  integer; 
probarray  -■  array [1 .  .maxarc]  of  real; 


var 

p,c; arcarray; 
prob ; probarray ; 
pcarc , node : nodearray ; 

arclimit, head, tail, arc, nodectr.nbrin, fin, k;  kc,a,b,i,j ,m; integer 
wjurce, sink: integer; 
top,out,inp  :text; 

Procedure  Inprob; 
var  i, j ,k: integer; 

begin 

reset (inp) ; 

for  i:=  1  to  maxarc  do 

probCi] :=0; 

while  not  eof(inp)  do 

r eadln ( inp , k , prob [k] ) ; 

arclimit;=k; 

close(inp) ; 

end ; 

Procedure  RI; 
var  i ,  j  :  integer ; 

begin 

assign(top, 'net. top') ; 
raset(top) ; 
nodectr :=1 ; 

for  i:=  1  to  maxarc  do 
begin 
p[i] :=0; 
c[i] :=0; 
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for  j ;=  1  to  2  do 
begin 

pcarcCi.j] ;=  0; 
node[i, j] :=0; 
end; 
end; 

i:=l; 

while  not  eof(top)  do 
begin 

readln(top,a,b) ; 
pcarcCi , l] : -a; 
pcarc[i,2] :=b; 
i;=i+l : 
end; 

■!ibrin:=i-l ; 
close(top) ; 
end; 


Procedure  Create; 
var  i,j ; integer; 

Procedure  Findp; 
var  i: integer; 
begin 
kp : =0 : 

for  1  :=  1  to  nbrin  do 
if  p<-arc[i,2]  =  arc  then 
begi-i 
kp:=kp+l ; 

p[kp] :=pcarc[i, 1] ; 
end; 
end; 

Procedure  Findc; 
var  i: integer; 
begin 
kc:-0; 

for  i:=  1  to  nbrin  do 
if  pcarc[i,l]  =  arc  then 
begin 
kc:=kc+l; 

c[kc] :=pcarc[i ,2l ; 
end; 
end; 


begin 

nodectr:=l ; 

for  j;=  1  to  nbrin  do 

begin 
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arc:=pcarcCj , l3 ; 
if  n?de[arc,l]  =  0  then 
begin; 

head:=nodecur; 

Findp; 

for  m:=l  to  kp  do 
for  i:=l  to  nbrin  do 
if  pcarcLi.l]  =  p[m]  then 
begin 

node [pcarc  Ci , 2] , 1] . =head ; 
node[pcarc[i,l] ,2] :=head; 
end; 

•lodectr :  =nodectr+ 1 ; 
end ; 

if  node [arc, 2]  =  0  then 
begin; 

tail:=ncdectr; 

Findc; 

for  m:=l  to  kc  do 

for  i;=  1  to  nbrin  do 
if  pcarc[i,2]  =  c[ra3  then 
begin 

node [pcarc [i , 1] , 2] : =tail ; 
node [pcarc [i, 2] , 1] : =tail; 
end; 

nodectr : =nodectr+l ; 
end; 

end; 

nodectr : =0 ; 
for  i:=  i  to  nbrin  do 
for  3 :=1  to  2  do 

if  node[i,i]  >  nodectr  then 
nodectr  .=  node[i,j]; 
for  i  :=  1  to  nbrin  do 

if  (node[i,l]  >  0)  and  (node [i, 2]  =  0)  then 
begin 

node [i, 2]  :=  nodectr+2; 

fin  :=  i; 

end; 

for  1  to  fin  do 

if  node[i,l3  =  0  then 
node[i,l3  nodectr+1; 
end; 

(*  Mam  Program  ♦) 

Begin 

assign(out ,  ’r.etrel’) ; 
assign(inp, ’prob.f ') ; 
rewrite(out) ; 

Inprob; 

RI; 
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Create, 

source :=nodectr+l ; 
sink:=nodectr+2; 

writeln(out,source:2, ’  ’ ,sink;2) ; 
for  m:=  1  to  fin  do 

writeln(out  .nodeCm,  l]  ;2,  ’  ’  ,node[m,2]  :2,  ’  '  ,prob[tn]  :3:2)  ; 
close  (out)  ;■ 
end. 
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G.2  Cupinv 


Program  Capinv; 
const 

maxpath  =  200; 
maxarc  =  85; 


type 

network  =  array [l .  .maxpath,  1 .  .maixarc]  of  integer; 
path  =  array [1 . .maxpath]  of  integer; 
arc  =  array [1 . .maxarc]  of  real; 


var 

arcpath  ;  network; 
cap.prob  :  arc; 

arclimit,  pathlimit  :  integer; 
bud.inv  :  real; 

pfile,  cf ile.pathf ile.gams  :text; 

Procedure  Getprob;  {Reads  in  arc  probabilities  into  array  probCi]} 
var  i,k:integer; 

begin 

resetCpf lie) ; 
arclimit :=0; 
for  i:=l  to  maxarc  do 
begin 

probCi] :=0: 
end; 

while  not  eof (pfile)  do 
begin 

readln(pfile,k,prob[k] ) ; 
arclimit ; =arclimit+l ; 
end; 

closeCpf ile) ; 
end; 


Procedure  Getpaths;  {Reads  network  paths  into  array  arcpath [i ,j] } 
var  i,j  :  integer; 

begin  {read  paths  into  array  arcpath} 
resetCpathf ile) ; 
pathlimit :=  -1; 
for  1  ;=  1  to  maxpath  do 
begin  {initialize} 
for  ]  ;=  1  to  maxarc  do 
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arcpathCi, j] :=0; 
end;  {initialize} 
while  not  eof fpathfile)  do 
begin  {read  path  number} 
read(pathfile,i) ; 
pathlimit :=pathlimit+l ; 
while  not  eolnCpathf ile)  do 

begin  {read  arcs(j)  in  path(i)} 
read(pathfile, j) ; 
arcpathCi, j]  :=  1; 
end;  {read  arcs} 
end;  {read  path  number} 
close (pathf ile) ; 

end;  {read  paths  into  array  arcpath} 

Procedure  Getcap;  {Reads  in  arc  capacities  into  array  cap[i]} 
var  i.k; integer; 

begin 

resetCcf ile) ; 

for  i;=l  to  maxarc  do 

capCi] :=0; 

while  not  eof(cfile)  do 
begin 

readlii(cfile,k,capCk3) ; 
end; 

close(cf lie) ; 
end; 

Procedure  Makegams; 
var  i,j: integer; 

begin 

assignCgams, ’capinv.gms’) ; 
rewrite(gams) ; 

writelnCgams, 'SOFFSYMXREF  OFFSYMLIST’ ) ; 
writeln(gams) ; 
writeln(gams , ’SETS’) ; 

writelnCgams, ’  I  arcs  /I  ♦  ’ .arclirait , '/’ ) ; 
writeln(gams , ’  J  paths  /I  ♦  ’.pathlimit,’/;’); 

writeln(gams) ; 
writelnCgams, ’PARAMETERS') ; 
writeln(gams) ; 

writelnCgams,’  UCD  arc  capacities’); 

writelnCgams,’  /’); 

for  i:=  1  to  arclimit  do 
writelnCgams,!: 2, capCi] ;6): 
writelnCgams,’  /'); 

writelnCgams) ; 

writelnCgams,’  PCD  arc  probabilities’); 

wr- telnCgams, ’  /’); 
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for  i:=l  to  arcliiait  do 
writeln(gams,i:2,prob[i] :5:2); 
writelnCgams , ’  /’): 

writeln(gains) ; 

writeln(gcuns , ’  A(I,J)  arc-path  matrix ’) : 

writeln(gams ,  ’ 

for  j  :=  1  to  arclimit  do 

begin 

for  i  :=  1  to  pathlimit  do 
begin 

if  arcpath[i,j]  >  0  then 
writeln(gams , j :2, ' . ’ ,i; 1 .arcpathCi, j]  :2) ; 
end 
end; 

writeln(gams , ’ 
writelnCgams) ; 

writelnCgams , 'SCALAR  C  cost  of  incr  arc  cap  by  1  /  ’,inv:4,’ 

Hr iteln(ga.ns , 'SCALAR  B  total  budget  available  /  ',bud:8,' 
uritelnCgams) ; 

HritelnCgams , 'PARAMETER  R(J)  path  reliabilities  ;'); 
writeln(garas) ; 

HritelnCgams,'  R(J)  =  PR0D(I  $  A(I,J),  P(I))  ;'); 

Hriteln(gams) ; 

HritelnCgams, 'VARIABLES') ; 

HritelnCgams,'  XCD  arc  cap  increase  '); 

HritelnCgams,'  FCJ)  floH  on  path  J  '); 

HritelnCgams,  Z  network  lower  bound  maxflo  ;'); 

writelnCgams) ; 

HritelnCgams, 'POSITIVE  VARIABLES  F,X  ;'); 

HritelnCgams) ; 

HritelnCgams , 'EQUATIONS' ) ; 

HritelnCgams) ; 

HritelnCgams,'  MAXFLO'); 

HritelnCgams,'  PATHFLOCI) ' ) ; 

HritelnCgams,'  BUDGET  ;'); 

HritelnCgams) ; 

writelnCgams, 'MAXFLO  ..  Z  =E=  SUMCJ,  RCJ)*FCJ))  ;'); 
writeCgams, 'PATHFLOCI)$CUCl)  ne  0)  ..'); 
writeCgams, 'SUMCJ  $  ACI.J).  FCJ))  =L=  UCD+XCD  ;'); 
HritelnCgams) ; 

HritelnCgams, 'BUDGET  ..  SUMCl,  C*XCI))  =L=  B  ;'); 
writelnCgams) ; 

Hi itelnCgams, 'MODEL  CAPINV  /ALL/  ;'); 

HritelnCgams) ; 

HritelnCgams, 'OPTION  LIMROW  =0'); 
writelnCgcuns) ; 

writelnCgams, 'SOLVE  CAPINV  USING  LP  MAXIMIZING  Z  ;'); 
writelnCgams) ; 

writelnCgams, 'DISPLAY  X.L,F.L  ;'); 

closeCgams) ; 

end; 
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(♦  Main  Program  ♦) 


Begin 

assignCpf ile, 'prob.f ’); 
assignCpathfile, 'path.f ' ) ; 
assign(cfile, 'cap.f ') : 

write( 'Enter  cost  of  increasing  T  unit  of  capacity 

reacl(inv) ; 

writeln; 

write(’ Enter  tota]  budget  '); 
read(bud) ; 

Getprob ; 

Getpaths ; 

Getcap; 

Makegams; 


G.3  Rdinv 


Prograjn  Hueristic; 
const 

maxpath  =  200; 
maxarc  =  85; 


type 

network  =  array [1 . .maxpath, 1. .maxarc]  of  integer; 
path  =  array [1 . .maxpath]  of  integer; 
arc  =  array [l . .maxarc]  of  real; 


var 

arcpath  :  network; 

impind.prob  ;  arc; 

card,  np  ;  path; 

arclimit,  pathlimit  :  integer; 

cap.inv  :  real; 

pfile,  pathfjle.gams  :text; 

Procedure  Getprob;  {Reads  in  arc  probabilities  into  array  probCi]} 
var  i,k; integer; 

begin 

reset(pfile) ; 
arclimit :=0; 
for  i:=l  to  maxarc  do 
begin 

probCi] ; =0; 
end; 

while  not  eofCpfile'  do 
begin 

readlnCpf ile,k,prob[k] ) ; 
arclimit :=arclimit+l; 
end; 

close(pf ile) ; 
end; 


Procedure  Getpaths;  {Reads  network  paths  into  array  arcpath[i, j]} 
var  i,j  :  integer; 

begin  {read  paths  into  array  arcpath} 
reset(pathf ile) ; 
pathlimit ;=  -1 ; 
for  i  ;=  t  to  maxpath  do 
begin  {initialize} 
card[i] ;=0; 
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for  j  :=  1  to  maxarc  do 
arcpath[i, j] :=0; 
end;  {initialize} 
while  not  eof (pathf ile)  do 
begin  {read  path  number} 
read(pathfile,i) ; 
pathlimit : =pathlimit+l ; 
while  not  eoln(pathf ile)  do 

begin  {read  arcs(j)  in  path(i)} 
readCpathfile, j) ; 
arcpath[i,j]  :=  1; 
card[i]  :=  cardCi]  +  1; 
end;  {read  arcs} 
end;  {read  path  number} 
close(pathf lie) ; 

end;  {road  paths  into  array  arcpath} 


Procedure  Computenp  ; 
var  i,k:  integer; 
begin 

for  k:=  1  to  pathlimit  do  {initialize  np} 
npCk] :=0; 

for  k:=  1  to  pathlimit  do 
for  i:=  1  to  pathlimit  do 
if  card[k]  =  cardCi]  then 
npCkj :=  npCk]+l ; 

end; 

Procedure  Computeii  ; 

var  i,j: integer;  cardsq:path; 

begin 

for  j:=  1  to  arclimit  do  {initialize  impind} 
impind[j] :=  0; 

for  i:=  1  to  pathlimit  do  {square  card  array} 
cardsq[i]:=  card [i] ♦card [i] ; 
for  j:=  1  to  arclimit  do 
for  i;=  1  to  pathlimit  do 
impind [j]:=  impind [j]  + 

(arcpath [i, j]/(np[i]*cardsq[i] ))♦ 1000; 
end; 

Procedure  Makegams  ; 
var  i: integer; 

begin 

assign(gams, 'relhuer.gms’) ; 
rewrite(gams) ; 

writeln(garas , '$0FFSYHXREF  OFFSYMLIST' ) ; 
writeln(garas) ; 


writeln(gains,  'SETS’) ; 

writelnCgams , '  I  arcs  /I  *  ’ .arclimit, ; 
writeln(gains) ; 
writelnCgams, 'PARAMETERS') ; 
writeln(gams) ; 

writelnCgams,’  RCI)  arc  reliability  index’ ) ; 
writelnCgams,’  /’); 
for  i:=  1  to  arclimit  do 
writelnCgams,i;2,impind[i] :8;4) ; 
writelnCgams,’  /’); 
writelnCgams) ; 

writelnCgams,’  PCD  arc  probabilities’) ; 

writelnCgams,’  /’); 

for  i:=l  to  arclimit  do 

writelnCgams, i:2,prob[i] :S;2); 

writelnCgams,’  /:’): 

writelnCgams) ; 

writelnCgams, 'SCALAR  C  cost  of  incr  arc  rel  by  .1  /  ’,inv:4,’  /;’) 

writelnCgams, 'SCALAR  B  total  budget  available  /  ’,cap;8,’  /;’); 

writelnCgams) ; 

writelnCgams , 'VARIABLES ' ) ; 

writelnCgams,’  XCI)  arc  rel  increase  '); 

writelnCgams,’  Z  objective  for  rel  index  ;’); 

writelnCgams) ; 

writelnCgams, 'POSITIVE  VARIABLE  X;’); 
writelnCgams) ; 
writelnCgams , ’ EQUATIONS ’ ) ; 
writelnCgams) ; 

writelnCgams,’  MAXINDEX’); 
writelnCgams,’  RELCI)'): 
writelnCgams,’  BUDGET  ;’); 
writelnCgams) ; 

writelnCgams, 'MAXINDEX  ..  Z  =E=  SUMCI,  RCl)*CPCl)+XCI) ) )  ;'): 
writelnCgams, 'RELCD  PCl)+( • 1*XCI))  =L=  1  ;’); 
writelnCgams, 'BUDGET  ..  SUHCl.  C*XCl))  =L=  B  ;’); 
writelnCgams) ; 

writelnCgams , 'MODEL  RELHUER  /ALL/  ;’); 
writelnCgams) ; 

writelnCgams, 'OPTION  LIMROW  =0’); 
writelnCgams) ; 

writelnCgams, 'SOLVE  RELHUER  USING  LP  MAXIMIZING  Z  ;’); 
writelnCgams) ; 

writelnCgams , 'DISPLAY  X.L  ;'); 

closeCgams) ; 

end; 

(*  Main  Program  ♦) 

Begin 

assignCpf ile, 'prob.f ’); 
assignCpathf lie , 'path.f ’ ) ; 


writeC 'Enter  cost  of  increasing  .1  units  of  survivability  ’); 

read(inv) ; 

writeln; 

write( 'Enter  total  budget  ’); 
read (cap) ; 

Getprob; 

Getpaths; 

Computenp; 

Computeii; 

Hakegams ; 

End. 
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Appendix  H.  Graphical  Network  Analyzer  (GNA)  User’s  Guide  (for 

Sun  workstations) 

by  Andrew  JafFee  August  22,  1991 
Contents 

•  Starting  GNA 

•  Drawing  normal  nodes 

•  Drawing  queuing  nodes 

•  Drawing  arcs 

•  Drawing  routes  between  queuing  nodes 

•  Undoing  your  last  draw  operation  (queues,  nodes,  and  routes) 

•  Saving  the  network  you’ve  drawn 

•  Navigating  in  GNA  windows 

•  Analyzing  the  network  with  an  operations  research  (OR)  model 

•  FORMULA 

•  Displaying  all  paths  through  the  network 

•  Displaying  all  bottlenecks  (arcs/nodes)  in  the  network 

•  Displaying  capacity  improvements 

•  Displaying  reliability  improvements 

•  Displaying  overall  network  performance  information 

•  QNA  (Queuing  Network  Analyzer) 

•  Displaying  all  bottlenecks  in  the  network 

•  Displaying  customers  in  nodes 

•  Displaying  other  congestion/performance  measures 

•  Displaying  overall  network  performance  information 

•  Navigating  in  GNA  windows 

•  Starting  GNA 

Type  <gna>  at  your  UNIX  system’s  prompt.  The  network  drawing  screen  and 
menu  will  appear.  Click  left  with  the  mouse  to  get  started. 
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•  Drawing  normal  nodes 

With  the  mouse,  click  on  <node>,  then  click  on  <place  normal>.  A  win¬ 
dow  will  appear  in  the  lower  left-hand  corner  of  the  screen.  This  is  the  input  box. 
The  input  box  appears  when  you  need  to  input  data  and  disappears  when  you’re 
done.  First,  you  will  be  prompted  to  enter  the  node’s  reliability.  Enter  it  and  press 
<return>.  If  you  entered  a  percentage  of  less  than  1.0,  you  will  be  prompted  to 
enter  the  cost  of  increasing  one  unit  of  reliability  in  the  node.  Type  it  and  press 
<return>.  You  will  be  prompted  to  enter  the  node’s  capacity.  Enter  *  if  the  node 
has  infinite  capacity  or  some  real  number  if  less  than  infinite  and  press  <return>. 
If  the  capacity  is  finite,  you  will  be  prompted  to  enter  the  cost  per  unit  increase  of 
capacity  in  the  node.  Enter  it  and  press  <return>.  You  wiU  be  prompted  to  enter 
whether  this  node  is  continuous(c)  or  discrete(d).  Enter  c  or  d  and  press  <return>. 
If  you  pressed  d,  you  will  be  asked  to  enter  the  node’s  capacity  increase.  Enter  it 
and  press  <return>.  Now  place  the  cursor  on  the  screen  where  you  want  to  position 
the  node  and  click.  The  node  will  appear.  To  label  the  node,  click  <new>,  then 
<label>.  Place  the  cursor  where  you  want  the  label  and  click  left.-To  draw  a  new 
node,  click  on  <new>,  then  <place  normal>,  and  repeat  the  steps  described  earlier. 
When  finished  drawing  nodes,  click  on  <quit>.  The  main  menu  will  reappear. 

•  Drawing  queuing  nodes 

With  the  mouse,  click  on  <node>,  then  click  on  <place  queue>.  The  input 
window  will  appear  in  the  lower  left-hand  corner  of  the  screen.  First,  lyou  will  be 
prompted  to  enter  the  node’s  service  rate.  Enter  it  and  press  <return>'.  Then  you 
will  be  prompted  to  enter  the  node’s  service  rate  variability.  Enter  it  and  press 
<return>.  Then  you  will  be  prompted  to  enter  the  number  of  servers  at  the  node. 
Enter  it  and  press  <return>.  Now  place  the  cursor  on  the  screen  where  you  want 
to  position  the  node  and  click.  The  node  will  appear.  To  label  the  node,  click 
<new>,  then  <label>.  Place  the  cursor  where  you  want  the  label  and  click  left. 
To  draw  a  new  node,  click  on  <new>,  then  <place  queue>,  and  repeat  the  steps 
described  earlier.  When  finished  drawing  nodes,  click  on  <quit>.  Then  main  menu 
will  reappear. 

•  Drawing  arcs 

Click  on  <arc>  and  then  on  <place>.  The  input  window  will  appear.  Enter 
arc  data  as  you  did  in  Drawing  normal  nodes.  Now  move  the  cursor  over  the  origin 
node  for  this  arc  and  double-click.  Double-click  on  the  terminal  node  for  this  arc  and 
the  arc  will  appear.  To  label  the  arc,  click  <new>,  then  <label>.  Place  the  cursor 
where  you  want  the  label  and  click  left.  To  draw  another  arc,  click  on  <new>,  then 
<place>,  and  repeat  the  steps  described  earlier..  When  finished  drawing  arcs,  click 
on  <quit>.  Then  main  menu  will  reappear. 

•  Drawing  routes  between  queuing  nodes 
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From  the  main  menu,  click  on  <path>.  The  input  window  will  appear  prompt¬ 
ing  you  to  enter  the  route’s  arrival  rate  and  variability  parameter.  Enter  them. 
Double-click  on  the  first  node  in  the  path,  then  double-click  on  the  second  node, 
double  click  and  the  third  node,  ...  When  you’ve  double-clicked  on  the  last  node  in 
the  path,  click  on  <done>  in  the  route  dialog  box.  To  draw  a  cycle,  double  click 
twice  on  the  same  node.,  Then  you  can  draw  another  path  by  clicking  on  <new> 
and  then  <path>  or  exit  by  clicking  on  <quit>. Undoing  your  last  draw  operation 
(queues  and  nodes) 

•  Undo 

If  you  draw  a  node  or  arc  badly,  accidentally,  or  you  change  your  mind,  you 
can  fix  it.  From  your  menu,  pick  the  <undo>  command,  and  the  last  node  or  arc 
drawn  will  be  deleted  from  the  network  drawing  area.  The  network  data  base  will 
also  be  corrected.  Remember,  this  operation  will  only  remove  your  most  recently 
drawn  node  or  arc. 

•  Saving  the  network  you’ve  drawn 

Click  on  <save>,  the  input  window  will  appear  prompting  you  to  ’’ENTER 
FILE  NAME:”.  Type  the  file  name  and  hit  <return>.  The  network  will  be  saved 
in  the  file  you  named  in  the  current  directory. 

•  Analyzing  the  network  with  an  operations  research  (OR)  model  :  FORMULA 

You  can  analyze  your  network  using  the  FORMULA  model  and  the  LP/MIP  83 
and  GINO  linear/nonlinear/mixed-integer  programming  packages.  From  the  main 
menu,  pick  <new>  then  <model>.  The  model  menu  will  appear.  Pick  <formula> 
and  then  <convert>.  The  input  window  will  appear.  You  will  be  prompted  to 
enter  the  budget  for  improving  the  capacity  and  the  budget  for  improving  the  re¬ 
liability  of  the  network  drawn  on  screen.  Now  open  a  DOS  window  and  enter  api 
at  the  DOS  prompt.  The  ARITY/PROLOG  interpreter  will  appear.  Type  con- 
sult(’formula2.ari’).  at  the  ?-  prompt  and  hit  <return>.  Then  type  go.  and  hit 
<return>.  FORMULA  will  prompt  you  to  enter  your  GNA  data  file  name.  Type 
forrnin.ari  and  hit  <return>.  Now  you  will  see  a  menu  giving  you  several  choices  as 
to  how  to  analyze  your  network.  Pick  1  for  Find  all  paths  and  calculate  reliabilities. 
You  will  be  asked  where  you  want  output  to  go.  Pick  2  for  File.  To  see  all  paths 
through  the  network  graphically,  see  Displaying  all  paths  through  the  network  be¬ 
low.  FORMULA  now  asks  you  if  you  want  continue  execution,  type  y  and  the  main 
menu  will  reappear.  Pick  3  for  Generate  the  Lower  Bound  Formulation.  You  will  be 
asked  where  you  want  output  to  go.  Pick  2  for  File.  Now  open  another  DOS  window 
and  enter  the  command  bottle  at  the  DOS  prompt  (this  is  a  batch  file  containing 
the  command  line  lp83  outputs. Ip  marginanalysis  yes  >  lp83.out).  This  invokes  the 
program  LP83  to  find,  among  other  things,  all  bottlenecks  in  your  network.  To  see 
all  bottlenecks  graphically,  see  Displaying  all  bottlenecks  (arcs/nodes)  in  the  net¬ 
work  below.  FORMULA  now  asks  you  if  you  want  continue  execution,  type  y  and 
the  main  menu  will  reappear.  Pick  5  for  Generate  Investment  Strategy  Model  1. 
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You  will  be  asked  where  you  want  output  to  go.  Pick  2  for  File.  In  your  other 
DOS  window  enter  the  command  capacity  at  the  DOS  prompt  (this  is  a  batch  file 
containing  the  command  line  lp83  outputS.lp  rnarginanaly.sis  yes  >  lp83.out).  This 
invokes  the  LP83  program  to  find,  among  other  things,  all  arcs  in  the  network  that 
need  capacity  improvement  and  the  suggested  capacity  improvements.  To  see  these 
suggested  improvements  graphically,  see  Displaying  capacity  improvements  below. 
FORMULA  now  asks  you  if  you  want  continue  execution,  type  y  and  the  main  menu 
will  reappear.  Pick  7  for  Generate  Investment  Strategy  Model  3.  You  will  be  asked 
where  you  want  output  to  go.  Pick  2  for  File.  In  your  other  DOS  window  enter  the 
command  gino.  A  colon  will  appear.  Type  retr  output?. nip  and  hit  <return>.  Type 
divert  and  hit  <return>.,  You’ll  be  prompted  for  a  file  name.  Type  gino. out  and  hit 
<return>.  Type  go  and  hit  <return>.  When  the  colon  reappears,  type  quit  and 
hit  <return>.  These  actions  will  solve  the  Model  3  formulation  to  find  network  ele¬ 
ments  that  need  reliability  improvement  along  with  suggested  improvements.  To  see 
these  suggested  improvements  graphically,  see  Displaying  reliability  improvements 
below.  You  have  several  other  options  when  running  FORMULA.  You  can  generate 
the  maximum  flow  and  upper  bound  formulations.  You  can  also  gejierate  three  in¬ 
vestment  strategy  models  for  improving  network  performance.  These  formulations 
can  be  solved  using  the  commercial  packages  LP/MIP  83  and  GINO.  Please  consult 
the  FORMULA,  LP/MIP  83,  and  GINO  documentation  to  see  how  to  use  these 
packages. 

•  Displaying  all  paths  through  the  network 

Now  move  the  mouse  back  from  the  DOS  window  into  the  GNA  window.  Pick 
<ncw>  then  <paths>.  The  first  path  through  the  network  will  appear.  Its  reliability 
and  flow  will  be  shown  in  the  paths  dialog  box.  Click  <next>  to  sec  the  next  path 
or  <done>  to  quit.:  Pick  <quit>  to  <return>  to  the  main  menu. 

•  Displaying  all  bottlenecks  (arcs/nodes)  in  the  network 

Now  move  the  mouse  back  back  from  the  DOS  window  into  the  GNA  window. 
Pick  <new>  then  <bottlenecks>.  All  bottlenecks  will  be  displayed  in  the  network. 
Each  node  or  arc  that  is  a  bottleneck  will  have  the  following  .symbol  next  to  it. 
Click  on  <done>  in  the  bottlenecks  dialog  box  to  continue.Displaying  capacity  im¬ 
provements.  Now  move  the  mouse  back  back  from  the  DOS  window  into  the  GNA 
window.  Pick  <new>  then  <capacity>.  All  nodes  and  arcs  that  need  capacity 
improvement  will  be  displayed  in  the  following  manner.  The  labels  of  t,he  elements 
being  improved  will  reflect  the  new  values.  GNA  displays  network  nodes  and  aics  in 
sizes  that  correspond  to  their  capacities.  An  improved  element  will  have  the  newly 
sized  element  displayed  in  green  with  the  original  element  supcrimpo.sed  over  it.  For 
example,  Click  on  <done>  in  the  capacity  improvements  dialog  box  to  continue. 
Displaying  reliability  improvements.  Now  move  the  mouse  back  back  from  the  DOS 
window  into  the  GNA  window.  Pick  <new>  then  <rcliability>.  All  nodes  and  arcs 
that  need  reliability  improvement  will  be  displayed  in  the  following  maimer.  The 
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labels  of  the  elements  being  improved  will  reflect  the  new  values.  Elements  will  be 
colored  as  follows:  reliability  (p)  >=  0  and  p  <=  0.5  will  be  red,  p  >=  0.5  and  p 
<  1.0  will  be  orange,  and  p  =  1.0  will  be  black.  Click  on  <done>  in  the  reliability 
improvements  dialog  box  to  continue. 

•  QNA  (Queuing  Network  Analyzer) 

You  can  analyze  a  queuing  network  using  QNA.  After  you’ve  draw  your  queuing 
network,  with  nodes  and  routes,  pick  <modei>  from  the  main  menu.  From  the  model 
menu  that  appears,  pick  <qna>.  The  qna  menu  will  appear.  Go  to  another  UNIX 
window  and  enter  the  command  qna  <  qna.in  >  qna.out.  QNA  will  execute  and 
place  output  containing  the  analysis  of  your  network  into  a  file  named  ”qna.out”. 

•  Displaying  all  bottlenecks  in  the  network 

Now  move  the  mouse  back  back  from  the  UNIX  window  into  the  GNA  v.dndow. 
Pick  <new>  then  <bottleneck.s>.  All  bottlenecks  will  be  displayed  in  the  network 
as  they  were  under  FORMULA  (above).  Click  on  <done>  in  the  bottlenecks  dialog 
box  to  remove  bottleneck  symbols. 

•  Displaying  customers  in  node  queues 

Pick  <new>  then  <queues>  to  display  t'-e  customers  in  each  node’s  queue. 
You  will  see  dots  lined  up  in  each  queue  representing  the  number  of  customers 
in  the  queue.  Visually,  queues  will  look  like  the  following:  Click  on  <done>  in  the 
queues  dialog  box  to  remove  queue  symbols. Displaying  other  congestion/performance 
measuresSimilarly,  you  can  click  on  <times>,  <rates>,  <visits>,  and  <traffic>  to 
see  sojourn  times  at  nodes,  arrival  and  departure  rates  to  and  from  nodes,  expected 
number  of  visits  to  nodes,  and  traffic  intensities  at  nodes,  respectively.  When  finished 
viewing  each,  click  on  <done>  in  Hie  respective  dialog  box. 

•  Displaying  overall  network  performance  information 

Pick  <new>  then  <performance>.  A  window  will  appear  displaying  textual 
and  symbolic  representations  of  network  throughout,  flows  in  and  out  of  the  network, 
expected  total  number  of  customers  in  the  network,  and  expected  total  sojourn  time 
in  the  network.  Click  on  <close>  when  done  viewing  this  data. 

•  Navigating  in  GNA  windows 

You  can  change  the  vantage  point  from  which  you  see  the  graphics  images  on 
screen.  This  can  be  done  to  back  away  from  an  image  to  see  the  whole  thing,  or 
to  zoom  in  to  get  a  closer  look.  You  can  also  rotate  images  around  three  axes.  To 
do  these  things,  pick  <camera>  from  the  main  menu.  The  menu  options  should  be 
self-explanatory.Exiting  GNA:  Click  on  <quit>  from  the  main  menu. 
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